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eR 
PREFACE 
eRe ee ae) 


This manual provides the new programmer with the information he needs to run 
programs on the IBM System/3 Model 10 Disk System and to use the disk utility 
programs for doing jobs such as preparing disks for use or updating system libraries. 
This information is divided into two parts: 


e Part | - operation control language (OCL) statements needed to run programs in 
the Disk System. 


@ Part Il - disk utility programs and utility control statements needed to run them. 


Note: In this publication there are some references to support of 64K bytes of main 
storage. A System/3 Model 10 with a 64K processing unit is available only as an 
RPQ. Your IBM Marketing Representative can provide information about this. 


Related Publications 


Publications that are related (not prerequisites) to this one are: 

e /BM System/3 Disk System Introduction, GC21-7510 

@ /BM System/3 Disk System RPG I! Reference Manual, SC21-7504 
e /BM System/3 Disk System Operator’s Guide, GC21-7508 

e /BM System/3 Disk System Halt Procedure Guide, GC21-7540 


e /BM System/3 Disk System RPG II and System Additional Topics 
Programmer’s Guide, GC21-7511 


e /BM System/3 Disk Concepts and Planning Guide, GC21-7571 


Fifth Edition (April 1972) 


This is a major revision of and obsoletes GC21-7512-3. Additions have been made to support 
the 1BM 5445 Disk Storage Drive. The IBM 1442 Card Read Punch can now replace the IBM 
5424 Multi-Function Card Unit (MFCU). The system punch device can be changed using 

the // PUNCH statement. 


This edition applies to version 06, modification level OO of the IBM System/3 Model 10 Disk 
System and to all subsequent versions and modifications until otherwise indicated in new 
editions or Technical Newsletters. Changes are continually made to the specifications herein; 
before using this publication in connection with the operation of IBM Systems, consult the 
latest IBM System/3 Newsletter, Order Number GN20-2228 for the editions that are applicable 
and current. 


This manual has been extensively revised and should be reread in its entirety. 


Requests for copies of IBM publications should be made to your IBM representative or to the 
IBM branch office serving your locality. 


A form for reader's comments is provided at the back of this publication. {f the form has been 
removed, comments may be addressed to |BM Corporation, Publications, Department 245, 
Rochester, Minnesota 55901. 


© Copyright International Business Machines Corporation 1969, 1970, 1971, 1972 
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SEAT Be 
HOW TO USE THIS MANUAL 
LL IE 


This publication contains two parts. Part | describes operation control language 
(OCL) statements. Part || describes disk utility programs. 


Part | 
Refer to Part | if you want to know: 


1. What an OCL statement is. 
2. What each OCL statement is used for (function). 


3. Where each OCL statement is placed in relation to others and when it is needed 
(placement). 


4. How each statement must be coded (format). 
5. What each statement must contain (contents). 


Part Il 
Refer to Part |! if you want to know: 


1. What disk utility programs are supplied with the system. 
2. The function of each disk utility program. 


3. The operation control language (OCL) statements and utility control statements 
necessary to request each disk utility program. 
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INTRODUCTION TO OCL STATEMENTS 
EE ES SS TNS 


WHAT IS OCL? 


Operation control language (OCL) is your means of communicating with the IBM 
System/3 Model 10 Disk System. You must write a set of OCL statements for each 
program you want to run. Based on the information supplied by the OCL state- 
ments, the Disk System will load and execute your Disk System programs or 
perform system utility functions. 


You can supply OCL statements in two ways: (1) punch the statements into 
cards, which are then read by the Disk System; (2) use the printer-keyboard to 
key the statements directly to the Disk System. 


After the Disk System reads a set of OCL statements for a program, it runs the 
program. When the program ends, the Disk System reads the set of statements 
for the next program, then runs that program. This procedure is repeated until 
all OCL statements have been read and the corresponding programs have been run. 


The running of your programs is controlled by system control programs. System con- 
trol programs must be in core storage before your jobs can be run. These programs 

are located on disk and are brought into storage by a procedure called initial program 
load (IPL). IPL is performed by the operator when the system is turned on. For more 
information on IPL, see the /BM System/3 Disk System Operator’s Guide, GC21-7508. 


The DATE statement is part of the IPL process and must be the first statement pro- 


vided for your program. (See DATE Statement in Statement Descriptions for more 
information.) 


Introduction to OCL Statements 3 


OCL and the Job Stream 
The OCL statements you supply form the basis of the job stream. If your program 
requires the use of data from the system input device (the device used to read OCL 
statements) your program and that data must follow the corresponding OCL. The job 
stream, therefore, can contain programs and program data as well as OCL statements. 
Figure 1 is an example of a card input job stream. 


You can also store sets of OCL statements for your programs outside of the job stream 
in a source library on disk. These sets are called procedures. You can instruct the 
system to merge procedures into the job stream. The ability to store sets of frequent- 
ly used OCL statements on disk makes it possible to avoid recoding the statements 
every time they are used. (See Procedures under Statement Descriptions for more in- 
formation.) | 


ORGANIZATION OF PART | 
Part | is divided into: 


1. Coding Rules defines the general contents of the OCL statements and explains the 
rules for writing the statements. 


2. Statement Descriptions explains the functions, format, and contents of each OCL 
statement, and the places in the job stream the statement may be used. 


3. Statement Examples presents and explains a job stream containing most of the OCL 
statements. 
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Figure 1. Job Stream 
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CODING RULES 
CR ra Ere 


TYPES OF INFORMATION 
Operation control language (OCL) statements contain, at most, two types of inform- 
ation: astatement identifier and parameters. A statement identifier is information 
that tells one statement from another. A parameter is additional information supplied 
with the statement identifier. Figure 2 shows the general form of OCL statements. 


identifier Parameter 1, Parameter 2, ..., Parameter n 


Figure 2. General Form of OCL Statements 


Statement Identifiers 
Every OCL statement needs a statement identifier. The identifiers are as follows: 


DATE FORMS * (asterisk) 
LOAD LOG PAUSE 
RUN READER /& 

SWITCH PUNCH FILE 
COMPILE NOHALT CALL 
IMAGE HALT PARTITION 


LOAD is an example of a statement identifier. 









Aion ach, 
CRREPPELT TT LL 


Parameters 
Some statements need parameters. Others do not. (See Statement Descriptions for 
an explanation of the statements which need parameters.) Parameters can be 
either codes or data. A code is a word or group of characters that has a certain 
meaning. Data is information such as the names, locations, and lengths of files on 
disk. (See Statement Descriptions for data and code restrictions on parameters. ) 
In the following example, PROG2 is the name of an RPG I! object program, and F1 
is a code that stands for the fixed disk on drive one. PROG2 is a data parameter 
and F1 is a code parameter. 
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Some statements require certain words in parameters to tell one parameter from 
another. The words are called keywords. Parameters containing keywords are 
called keyword parameters. \In Figure 3, NAME-MASTER, PACK-VOL1, and 
UNIT-R1 are keyword parameters. NAME, PACK, and UNIT are keywords. 
MASTER and VOL1 are data parameters. R1 is a code parameter. There should 
always be a hyphen between the keyword and the code or data parameter. 





Figure 3. Keyword Parameters 


GENERAL CODING RULES 


In Part 1 of this book, the numbers that appear above statement formats and 
examples indicate the card columns or line positions occupied by the statements. 
In statement formats, special characters, such as //, and words written in capital 
letters are information that must be used exactly as shown. Words written in 
small letters, such as code, program-name, and unit, represent information that 
you must supply. 


Statements Beginning with // 
The rules for coding the statements are as follows (the term position refers to 
either card column or line position): 


@ Place the // in positions 1 and 2. 


@ leave one or more blanks between the // and the word that forms the statement 
identifier (LOAD, RUN, CALL, etc.). 


@ Leave one or more blanks between the end of the statement identifier and the 
first parameter. 


@ if you need more than one parameter, use a comma to separate them. No blanks 
are allowed within or between parameters. (For the exception to this rule, see the 
description for the HIKEY parameter under F/LE Statement.) Anything 
following the first blank is considered a comment (see Comments). 


@ !f you are writing keyword parameters, place the keyword first and use a 
hyphen to separate the keyword from the code or data parameter. 


@ |f the parameter is not a keyword parameter, write the parameters in the order 
in which they are discussed in this manual. | 


Figure 4 illustrates the coding rules. The statement identifiers are LOAD and 
FILE. The parameters are PROG1, R1, NAME-MASTER, UNIT-R1, and PACK- 


VOL1. The last three parameters are keyword parameters. 





Figure 4. Illustration of General Coding Rules 


Statements Beginning with Other Than // 
* and /& statements do not require // preceding them when coded. (See Statement 
Descriptions for * and /& statements.) 


Continuation 
All OCL statements except FILE must not exceed 96 characters, including blanks 
and comments. Because of the large number of parameters possible in a FILE 
statement, you can use two or more cards or lines for those statements. Each card 
or line you use must not exceed 96 characters. (Data for the IMAGE statement 
requires continuation for the cards or lines containing the chain image characters, 
but the data follows different continuation rules. See /MAGE Statement under 
Statement Descriptions for more information.) 


The continuation rules are as follows: 

@ Place a comma after the last parameter in every card or line except the last. 
The comma, followed by a blank, tells the system that the statement is con- 
tinued in the next card or line. 


@ Begin each new card or line with a // in positions 1 and 2. 


@ Leave one or more blanks between the // and the first parameter in the card or 
line. 


Figure 5 illustrates the continuation rules. 





Figure 5. Illustration of Continuation Rules 
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Comments 
You can include comments in the following places in your statements: 


@ Following the // in statements beginning with //. Begin the comment in position 3, 
immediately following the //. You can use up to eight characters without blanks. 
Leave one or more blanks between the comment and the word forming the state- 
ment identifier. Figure 6 contains such acomment. The word BILLING is the 
comment. 


@ After the last parameter. Leave one or more blanks between the last parameter 
and your comment. The comment can be any combination of characters. If the 
statement is continued in subsequent cards or lines, you can place comments after 
the last parameter in any of the cards or lines. 


In addition to writing comments within your OCL statements, you can include whole 
cards or lines of comments. The OCL comment statement is provided for that 
purpose. (See * (Comment) Statements under Statement Descriptions for more 
information.) 





Figure 6. Comment Following // 
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STATEMENT DESCRIPTIONS 
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Each OCL statement is described separately in this section. The following informa- 
tion is given for each statement: 


1. The function of the statement. 


2. The placement of the statement in regard to other statements and the circum- 
stances under which the statement is needed. 


3. The format of the statement. 


4. Thecontents of the statement, explaining the parameters that can be used in the 
statement. 


Figure 7 gives the function, placement, and restrictions on use for each OCL 
statement. 


Figure 8 describes the contents of the OCL statements. It is meant for reference 
only. If you are not familiar with an entry, or you do not know when to use or 
omit it, refer to the proper statement in the remainder of this section. 


When using Figure 8, remember that words written in small letters such as filename 
or value require a choice on your part, depending on the functions you want the 
statement to perform. Refer to Figure 8 to see which parameters are available. 
Those parameters that are capitalized must be coded along with the data or code 
parameter. 
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STATEMENT 





// DATE 


// LOAD * 


// LOAD 


// RUN 


// SWITCH 


// COMPILE 


/1 \MAGE 


// FORMS 


// LOG 


















PLACEMENT 


FUNCTION | STATEMENT APPEARS STATEMENT APPEARS 
IN JOB STREAM IN A PROCEDURE 


Supplies the system with | Must follow LOAD or CALL] Must follow the LOAD 
a date, this date is given | Statement and precede the statement and precede the 
to disk files being created.| RUN statement except at RUN statement (if RUN is 
IPL time, when it must used). 
precede the first LOAD 
or CALL statement. 


RESTRICTIONS ON USE 














Must be supplied during the 
Initial Program Load. The 
effect of the statement is 
for that job only. 




































Must precede the 
| RUN statement 






Not allowed in 
a procedure. 


LOAD * cannot be used in 
program level 2. 


Indicates that the object 
program will be loaded 
from the system input 
device following the 
RUN statement. 
















Must be the first 
// statement. 


Identifies the program 
to be run and in- 
dicates the disk that 
contains the object 
library from which it is 
to be loaded. 


Must precede the 
RUN statement. 


































Must be the last OCL 
statement. 


Indicates the end of the 
OCL statements for a 
program and tells system 
to run the program. 


May be the last 
statement. 


Required in the job stream 
for each program which is 
to be run. 


















Must follow the LOAD 
statement and precede the 
RUN statement (if RUN is 
used). 


Must follow LOAD or CALL 
statement and precede the 
RUN statement. 


Used to set one or more 
external indicators on 
or off or leave the in- 
dicator as it is. 

















Must follow LOAD or CALL 
statement and precede the 
RUN statement. 


Must follow the LOAD 
statement and precede the 
RUN statement (if RUN is 
used). 







Tells the system where 
the source program to 
be compiled is located 
and where to place the 
object program. 
























Tells the system to re- 
place the chain-image 
area with characters 
indicated in the fol- 
lowing data cards or 
characters keyed in 

or read from source 
library. 









Anywhere among the 
OCL statements. 


Required if the printer chain 
has been changed. 


Must precede the 
RUN statement (if 
RUN is used). 































Must precede the 
RUN statement (if 
RUN is used). 


Anywhere among the 
OCL statements. 





Instructs the system to 
change the number of 
lines printed per page. 




















Device cannot be 
specified in program 
level 2. 






Instructs system to 
start or stop printing 
OCL statements and 
codes and indicates the 
device to be used to 
print them. 


Must precede the RUN 
statement (if RUN is 
used). 


Anywhere among the 
‘OCL statements. 













Figure 7 (Part 1 of 2). Table of OCL Statements 


PLACEMENT 


STATEMENT FUNCTION STATEMENT APPEARS STATEMENT APPEARS RESTRICTIONS ON USE 
. IN JOB STREAM IN A PROCEDURE 








Changes the system input} Must precede LOAD or Must precede the Can be used in job stream only. 
device used to read OCL | CALL statement or follow LOAD statement (if 
statements. the RUN statement and LOAD is used). 

precede the next LOAD 

or CALL statement 


// READER 


// PUNCH Enables you to change Anywhere among the Must precede the RUN 


the system punch device.| OCL statements. statement. 


// NOHALT Instructs system to Anywhere among the Must precede the RUN ignored in program level 2. 
continue without OCL statements. statement (if RUN is 

stopping when a used), 

program ends. 

[1 HALT Instructs system to halt Anywhere among the Must precede the RUN Ignored in program tevel 2. 
when program ends; OCL statements. statement (if RUN is 

cancels the effect of used). 

the NOHALT 

statement. 





*(Comment) Used to explain the job Anywhere. Anywhere. 
or give the operator 

instructions; does not 

affect the program in 


operation. 












// PAUSE Must precede the 
RUN statement (if 


RUN is used). 


Tells the program to stop 
in order to give the 
operator time to per- 
form a function. 
Operator must restart 
program. 








Anywhere among the 
OCL statements. 






































™ 


Not allowed ina 
procedure. 


Can be used in the job stream 
only. 


Recommended as the first 
statement of a job. 


Provides OCL security 
from previous job. 















Required for every new file 
created and existing files being 
used. 












// FILE Must follow the LOAD 
statement and precede the 
RUN statement (if RUN 


is used). 


Must follow LOAD or CALL 
statement and precede the 
RUN statement. 


Supplies information 
about the file to the 
system. 




















// CALL Can be no more than nine. 
levels of nested chained 


procedures. 


Identifies procedure to 
be merged into job 
stream and the disk 
containing the source 
library from which to 
read the procedure. 


Must precede the 
RUN statement. 







Indicates chained 
procedures. 




















// PARTITION 











Cannot be submitted in 
program level 2 or when 
program level 2 is processing. 


Guarantees a minimum 
size to level 2 fora 
program in that level. 


| Must precede the RUN 
statement (if RUN is 
used). 


Anywhere, among the 
OCL statements. 






Figure 7 (Part 2 of 2). Table of OCL Statements 
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STATEMENT 





/1 DATE 


// LOAD 


// RUN 


// SWITCH 


/{ COMPILE 


/1/ IMAGE 


// FORMS 


// LOG 


// READER 


// PUNCH 


Figure 8 (Part 1 of 2). 


12 


date 


asterisk 
program name 


unit 


indicator-settings 


SOURCE 


UNIT 


OBJECT 


format 


number 
name 


unit 


DEVICE 


LINES 


Table of Parameters 


system input device 


system punch device 


mmddyy or 
ddmmyy 


Refer to SWITCH 
Statement under 
Statement Descriptions 


SOURCE-name 


UNIT-R1 
R2 
F1 
F2 


OBJECT-R1 
R2 


FA 
F2 


DEVICE-name 


LINES-value 


CONSOLE 
PRINTER 
OFF 

ON 


CONSOLE 
MFCU2 
MFCU1 
1442 


PARAMETER Ce MEANING OF CODE 


System date or date within.a set of statements 


Program is to be loaded from the system input device 


Name of program that is to be loaded from disk 


Object library resides upon: 
Removable disk on drive one 
Removable disk on drive two 
Fixed disk on drive one 
Fixed disk on drive two 





Name of source program 


Where disk that contains the source library is 
located (the meanings of the unit codes are the 
same as for LOAD) 


Where to place the object program (the meanings 
of the unit codes are the same as for LOAD) 


To indicate characters from cards are in hexadecimal 
form 

To indicate characters from cards are in EBCDIC form 
To indicate characters are from the source library 





Number of new characters 
Identifies the characters in the library 


Where the disk that contains the library is located 
(the meanings of the unit codes are the same as for 
LOAD) 


Indicates which printer is used 
Indicates number of lines to be printed per page 


Use printer-keyboard as logging device 
Use printer as logging device 

Stop printing — 

Start printing 


Printer-keyboard 

Secondary hopper of MFCU 
Primary hopper of MFCU 
Card Read/Punch 


Secondary hopper of MFCU 
Primary hopper of MFCU 
Card Read/Punch 


STATEMENT PARAMETER | cope MEANING OF CODE 








/1/ NO HALT 


a 
a 
a 
a A 
a a a 

















































































































































// FILE NAME-filename Name of the program uses to refer to the file 
UNIT-R1 Where the 5444 disk that contains or will contain the 
R2 file is located (the meanings of the unit codes are the 
F1 same as for LOAD) 
F2 
D1 Where the 5445 disk that contains or will contain 
D2 the file is located. 
PACK PACK-name Name of disk that contains or will contain the file 
LABEL LABEL-filename Name by which your file is identified on disk 
RECORDS or RECORDS-number of Amount of space needed on a disk for a file 
TRACKS TRACKS-number 
LOCATION LOCATION-track Number of track on which file begins or is to begin 
number (5444 disk only) 
LOCATION-cylinder Cylinder number on which file begins or is to begin. 
number Track assumed zero (5445 disk only). 
LOCATION-cylinder Cylinder number, track number on which file begins 
number/track number or is to begin (5445 disk only). 
LOCATION-filename Filename of a split cylinder file that is the first split 
cylinder file in a group, or is an already existing split 
cylinder file. (5445 disk only). For further discus- 
sion see Split Cylinder Files. 
RETAIN RETAIN-T Temporary file 
S Scratch file 
P Permanent file 
A Reactivate scratch file 
DATE-mmddyy Tells the system the date the file was created 
ddmmyy 
HIKEY-‘highest List of highest key fields 
key fields allowed’ allowed on each pack 
SPLIT-tracks/cylinders The number of tracks per cylinder needed for the 
or split cylinder file; the number of cylinders needed 
SPLIT-tracks for a group of split cylinder files (5445 disk only). 
For further discussion see Sp/it Cylinder Files. 
// CALL procedure name Name that identifies the procedure in the source library 























unit R1 Where the disk containing the procedure is located 
R2 (the meanings of the unit codes are the same as for 
F1 LOAD) 





F2 
[/ PARTITION Size vate | Minimum size of program level 2 in decimal bytes 


Figure 8 (Part 20f 2). Table of Parameters 
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DATE STATEMENT 





Function 


Placement 


Format 


Contents 


Example 
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The DATE statement gives the Disk System a date, called the system date. The 
system date is referred to by RPG II field names UDATE, UMONTH, UDAY, 
and UYEAR. The preceding field names can also be used when referring to the 
date given to the disk files when they were created. 


A DATE statement. within the set of statements for a program changes the 
system date, but only for that program. When the program ends, the date 
supplied in the DATE statement at IPL time is again used. There can only be 
one DATE statement per job. 


A DATE statement is always required during Initial Program Load (IPL). It is 
the only OCL statement required by the system at that time. 


A DATE statement can also appear within any of the sets of statements for your 
programs. The DATE statement must follow the LOAD or CALL statement 
and precede the RUN statement. 


// DATE date 


The system date can be in either of two forms: month-day-year (mmddyy) or 
day-month-year (ddmmyy). You must specify the form at System Generation 
time. (See /BM System/3 Disk System Operator’s Guide, GC2|-7508, for more 
information on System Generation.) The date you specify must be in that form. 


The date can be written with or without punctuation. For example, July 25, 1970, 
could be specified in any one of the following ways: 

07-25-70 

25-07-70 

072570 

250770 


Month, day, and year must each be 2-digit numbers but lead zeros in month and 
day may be omitted when punctuation is used (7-25-70 or 25-7-70). In the 
punctuated form, any characters except commas, quotes, numbers and blanks 
can be used as punctuation. 


LOAD STATEMENT 





Function 


Placement 


Format 


Contents 


The LOAD statement identifies the program to be run and indicates whether the 
program will be loaded from the system input device or disk. 


One LOAD statement is required within each of the sets of statements for your 
programs. If the set of statements appears on the job stream, the only requirement 
for the LOAD statement is that it must precede the RUN statement. In procedures, 
the LOAD statement must be the first // statement. (For more information about 
procedures, see Procedures in this section ) 


The LOAD statement has two formats. The first format is used for object pro- 
grams loaded from the system input device and cannot be used in a procedure. 
The second format is used for programs loaded from disk. 


// LOAD * 
// LOAD program-name,unit 


Asterisk: An asterisk indicates that the object program will be loaded from the 
system input device. Program-name and unit parameters must not be included. 

The cards or lines that contain the program must follow the RUN statement for 
the program and must be followed by /* or /& to signify the end of the program. 
LOAD * cannot be used in programming level 2 (see Using OCL, Loading Programs 
ina DPF Environment, for more information on dual programming). 


Program-name: The program-name parameter is the name used on disk to identify 
the program. 


The names you must use for your RPG If programs depend on the way the pro- 
grams were placed on disk. One way includes an RPG I! compiler option. You 
can specify, in the RPG I! Control Card specifications, that your RPG II program 
be placed on disk immediately after it is compiled. The name you supply in 
columns 75-80 of the Control Card specifications is the name used to identify 
the program. If you left columns 75-80 blank, the name RPGOB\ is used. 


Another way to place your RPG II Program on disk is by using the Library 
Maintenance program. !f you used that program, the program-name you supplied 
in the Library Maintenance control statements is the name used to identify your 
program. (For more information, see Library Maintenance in Part || of this book.) 
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LOAD STATEMENT (continued) 
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Program 

Alternate Track Assignment 
Alternate Track Rebuild 
Assembler 

Data Recording 

Data Verifying 

Disk Copy/Dump 

Disk Initialization 

Disk Sort 

File and Volume Label Display 
File Delete 

Library Maintenance 

List 

MFCU Sort/Collate 
Reproduce and Interpret 
Restart 

RPG I! Compiler 


80-96 Conversion 


Code 
R1 
F1 
R2 


F2 


The Disk System programs are identified by the following names: 


Name 
SALT 
$BUILD 
$ASSEM 
$DREC 
$DVER 
$COPY 
SINIT 
$DSORT 
$LABEL 
$DELET 
$MAINT 
$CLIST 
$CSORT 
$REPRO 
$$RSTR 
$SRPG 


$CNVRT 


Unit: The unit parameter is a code. It indicates where the disk that contains 
the program is located. The codes are as follows: 


Meaning 

Removable disk on drive one 
Fixed disk on drive one 
Removable disk on drive two 


Fixed disk on drive two 


LOAD STATEMENT (continued) 


The unit parameter is required because your programs can be on any of the 
disks on your disk unit. The disk area containing your object program is called 
an object library. You can create an object library on any of the disks on your 
disk unit by using the Library Maintenance program. (See Library Maintenance 
in Part I! of this manual.) 





Example : In the following sample LOAD statement, $RPG is the name that identifies the 
RPG !! Compiler. 


1 4 8 12 16 20 24 28 32 36 40 44 48 
VA || IOA WRIPGLIFL TT TTT TT TTT TT TTT TTT TT 
SH ee eee eee eee ee eee Ee. 


F1 is the code indicating the fixed disk on drive one, where the compiler would 
be located in this case. 
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RUN STATEMENT | 


Function The RUN statement indicates the end of the OCL statements for a program. 
After the system reads the RUN statement, it runs the program. 








Placement A RUN statement is needed for each of the programs you want the system to run. 
in the job stream, it must be the last statement within each of the sets of OCL 
statements for your programs. It can also be the last OCL statement in a pro- 
cedure. (For more information about procedures, see Procedures in this section.) 

Format // RUN 


Contents None 
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SWITCH STATEMENT 


Function 


Placement 


Format 


Contents 


Example 


The purpose of the SWITCH statement is to set one or more RPG II external 
indicators on or off. The indicators are always off after the operator uses the 
IPL procedure to start the system. If a SWITCH statement is used to set an 
indicator on, the indicator remains on until another SWITCH statement sets it 
off, or until the operator again uses the IPL procedure to start the system. There 
can be only one SWITCH statement per job. 


The SWITCH statement can appear within any of the sets of statements for your 
programs. The only requirements for the SWITCH statement are that it must 
follow the LOAD or CALL statement and precede the RUN statement. 


/{ SWITCH indicator-settings 


Indicator-settings: The indicator-settings parameter is a code that consists of 
eight characters, one for each of the eight external indicators (U1-U8). The first, 
or leftmost, character gives the setting of indicator U1; the second character 
gives the setting of U2; and so on. 


The code must always contain eight characters. For each indicator, one of the 
following characters must be used: 


Character Meaning 

0 Set the indicator off 

1 Set the indicator on 

X Leave the indicator as it is 


The code 1X0110XX would cause the following results: 


Indicator Result 
U1 Set on 
U2 Unaffected 
U3 Set off 
U4 | Set on 
U5 | Set on 
U6 Set off 
U7 Unaffected 
U8 Unaffected 
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COMPILE STATEMENT | 
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Function 


Placement 


Format 


Contents 


The COMPILE statement tells the system two things: (1) where the source pro- | 
gram to be compiled is located if it is coming from a disk source library; (2) where 
the object program is to be placed. (An object program is a source program which 
has been compiled or translated into machine language. ) 


The COMPILE statement must be within the set of OCL statements that apply 
to the compilation. The COMPILE statement must follow the LOAD or CALL 
statement and precede the RUN statement. 


// COMPILE parameters 


All the parameters are keyword parameters (keywords are in capital letters). The 
keywords are: SOURCE, UNIT, and OBJECT. 


SOURCE: The SOURCE parameter tells the system the name of the source pro- 
gram. The keyword SOURCE must be followed by the name of the source pro- 
gram on disk. The name is the name by which the source program is identified 

on disk in the source library. (For more information concerning the source library 
see CALL Statement in this section.) 


The only way you can place source programs in a source library is by using the 
Library Maintenance program. The program name you supply in Library Main- 
tenance control statements is the name used to identify the source program in 
the library. (For more information, see Library Maintenance in Part II of this 
manual.) 


lf the SOURCE parameter is not used, the source program is assumed to be in the 
job stream following the RUN statement. 


The SOURCE parameter must always be accompanied by the UNIT parameter. 


UNIT: The UNIT parameter is used only when the SOURCE parameter is used. 


The UNIT parameter is a code indicating where the disk that contains the source 
library is located. The codes are as follows: 


Code Meaning 

R1 Removable disk on drive one 
F1 Fixed disk on drive one 

R2 Removable disk on drive two 
F2 Fixed disk on drive two 


COMPILE STATEMENT (continued) 





Example 


OBJECT: The OBJECT parameter tells the system where to place the object pro- 
gram. The OBJECT parameter may be specified without using the SOURCE and 
UNIT parameters. The codes which are used to indicate the disk unit on which 
the object program is to be placed are R1, F2, R2, or F2. 


Note: \|f the OBJECT parameter is omitted, it is assumed that the object program 
is to be placed on the same disk as the compiler. The object program name is a 
function of the RPG II Compiler. (For more information see the /BM System/3 
Disk System RPG I! Reference Manual, SC21-7504.) 


The following sample COMPILE statement tells the system that the source program 
with the name PROG3 is located on the fixed disk on drive one (F1). 












TT COMPU Le Sobece Pieces, UT, Mae 
Ti LEE 





The parameter, OBJECT-R1, tells the system to place the object program on the 
removable disk on drive one. 
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IMAGE STATEMENT | 


Function | To operate correctly, the printer requires characters matching those on the 
printer chain to be in a special area of core storage called the chain-image area. 
When you replace the printer chain with one having different characters, you must 
also change the contents of the chain-image area. 





The IMAGE statement instructs the system to replace the contents of the chain- 
image area with the characters indicated by the statement. The characters can be 
entered from the system input device, or contained in a source library on disk. 
The effect of the IMAGE statement is temporary and the system chain image is 
returned to the chain-image area when IPL occurs. 


Placement The IMAGE statement can appear anywhere among the OCL statements. Ina 
procedure, it must precede the RUN statement. 


Format // IMAGE parameters 

Contents The IMAGE statement tells the system either of two things: (1) the new chain 
characters are to be read from the system input device; or (2) the new chain 
characters are to be read from the source library. 
The IMAGE parameters are: 
— format-HEX, CHAR, or MEM 
— number-value 
— name-name 
— unit-code 
(Coding only HEX, CHAR, or MEM is preferable for format but HEXADECIMAL, 
CHARACTER, or MEMBER can be coded.) 
Characters From the System Input Device 
If you wish to indicate that the new chain characters are to be read from the 
system input device, use the following parameters: 
Format: Use the word CHAR to indicate that the characters are in EBCDIC form. 
Use the word HEX to indicate that the characters are in hexadecimal form. 
Number: The number parameter must be used with HEX and CHAR. It must be 
a value which is equal to the number of columns or line positions in the data cards 
or the data keyed in following the IMAGE statement that contains the new charac- 


ters. This number must not exceed 240 when the characters are hexadecimal, 120 
when characters are EBCDIC. The name and unit parameters must not be coded. 
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IMAGE STATEMENT (continued) 


ee ee eae mee pein cineca memceagmsmb eamesian atime tance mnie eaeaaaea 
Following are the rules for punching or keying the new characters: 
1. The characters must begin in column or line position 1. 


2. Consecutive card columns or line positions must be used; however, only 
the first 80 columns or line positions of the card or line can be used. Hexa- 
decimal requires an even number of columns or line positions, two per 
character. 


3. To continue the characters on another card or line begin the characters 
in column or line position 1. 


Characters From the Source Library on Disk 


To indicate that new chain characters are to be read from the source library on 
disk, the format parameter must specify the word MEM. 


The following parameters must also be included: 


Name: The name parameter identifies the source member containing the charac- 
ters in the library. The only way you can place the characters in a source library 
is by using the Library Maintenance program. The name you supply in Library 
Maintenance control statements is the name used to identify the characters in 
the source library. 


Unit: The unit parameter must be used with the name parameter. It is used to 
tell the system where the disk containing the source library is located on the disk 
unit. The codes which are used are: 


Code Meaning 

R1 Removable disk on drive one 
F 1 Fixed disk on drive one 

R2 Removable disk on drive two 
F2 Fixed disk on drive two 
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IMAGE STATEMENT (continued) 
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Example 


The IMAGE statement in example A tells the system that the new characters are 
on data cards or keyed in. The format parameter indicates that new characters 
are in hexadecimal form; the number parameter indicates that there are 120 
columns or line positions containing the new characters. 


In example B, the new characters, on data cards or keyed in, are in EBCDIC. The 
number parameter indicates that there are 48 columns or line positions contain- 
ing the new characters. 


Example C tells the system that the new characters are to be read from the 
source library on disk. The format parameter indicates that the new chain 
characters are in the source library. The name parameter indicates that the 
characters were named CHAIN in the source library. The unit parameter indi- 
cates that the source library containing them is on the removable disk on drive 
one (R1). Examples of the member specified in example C are the data por- 
tions of examples A and B. The member itself requires a // IMAGE card with 
the characters either in hexadecimal or EBCDIC. The number of columns or 
line positions containing the characters must also be specified. 


(See Library Maintenance in Part |! for restrictions on the name used in coding 
MEM.) 





FORMS STATEMENT 





Function 


Placement 


Format 


Contents 


Example 


The FORMS statement enables you to change the number of lines that the print- 
er will print per page. The printer automatically assumes the number of lines 
per page specified at system generation time unless a FORMS statement is used 
or an RPG II program specifies some other number. This number of lines is 
effective until another FORMS statement is used or an RPG II program with a 
line counter specification is run. (See /BM System/3 Disk System RPG I1 Ref- 
erence Manual, SC21-7504.) 


The FORMS statement can be placed anywhere among the OCL statements. 
In a procedure it must precede the RUN statement. 


// FORMS parameters 


All of the parameters are keyword parameters (keywords are in capital letters). 
The parameters are as follows: 


— DEVICE-name 
_ LINES-value 


DEVICE: The keyword for this parameter is DEVICE. It must be followed by 
the name of the printing device. The name of the printing device is 5203L or 
5203. You may omit the DEVICE parameter entirely. 


LINES: The LINES parameter is used to indicate the number of lines per page. 
The maximum number of lines that can be specified per page is 112. The LINES 
parameter remains in effect until either an IPL is performed or another FORMS 
statement for the same device is read. If a line counter specification is used in an 
RPG Ii program, it remains in effect only for the duration of the program. 


In the following FORMS statement, the system is using the left carriage of the 
5203 Printer. The statement tells the system that the forms length is 88 lines 


per page. 
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LOG STATEMENT | | “ | | | 


Function OCL statements and message codes are printed on the printer-keyboard. If your 
system has no printer-keyboard, the statements and codes are printed on the 
printer. The device used to print OCL statements and message codes is called 
the /ogging device. |f you want to change the logging device, or specify whether 
or not the statements and codes are to be printed, you must use a LOG statement. 


The LOG statement tells the system to do one of four things: 


Use the printer as the logging device 
— Use the printer-keyboard as the logging device 


— Stop printing OCL statements and message codes 


Start printing OCL statements and message codes 


Placement You can use the LOG statement within any of the sets of OCL statements for 
your programs. In a procedure it must precede the RUN statement. 


Format // LOG code 
Contents | Four codes can be used as sop ueneers The codes are as follows: 
Code Meaning 
CONSOLE Use printer-keyboard as logging 
device 
PRINTER Use printer as logging device 
OFF Stop printing 
ON Start printing 


Only one code can be used in one LOG statement. The starting of the jogging 
device is implied when coding CONSOLE or PRINTER. 


When the system reads a LOG statement that contains the OFF code, it stops 
printing OCL statements and message codes. The only way you can instruct the 
system to start printing them again is by using a LOG statement that contains the 
ON, PRINTER, or CONSOLE code. When ON is specified printing resumes on 
the last logging device specified. 
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READER STATEMENT 


Function The device used to read OCL statements is called the system input device. The 
system assumes that the system input device is the primary hopper of the MFCU. 
You must use a READER statement if you want to use the printer-keyboard, 
secondary hopper of the MFCU, or the 1442 Card Read/ Punch as the system 
input device. 





Placement The READER statement must not come between the LOAD or CALL statement 
and a RUN statement. The READER statement must precede the initial LOAD 
or CALL statement or follow the RUN statement, preceding the next LOAD or 
CALL statement. If you use the READER statement to change the system input 
device, the device you specify is used to read source programs, control statements, 
or OCL statements. Changing the system input device affects the placement of 
source programs and control statements as well as OCL statements. 


You must place the READER statement in the current system input device. 


Format // READER system input device 
Contents The codes are: 
ode Meaning 
CONSOLE Printer-keyboard 
MFCU2 Secondary Hopper of the 
MFCU 
MFCU1 Primary Hopper of the MFCU 
1442 Card Read/Punch 
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PUNCH STATEMENT 
Sennen nen eee eee eee ee ene ease een ee eee eee ee ea 


Function The PUNCH statement enables you to change the system punch device. 


Placement The PUNCH statement can be placed anywhere among the OCL statements. 
In a procedure it must precede the RUN statement. 


Format // PUNCH punch device 
Contents Three codes can be used as parameters. They are: 
Code Meaning 
MFCU1 Primary Hopper of the MFCU 
MFCU2 Secondary Hopper of the 
MFCU 
1442 Card Read/Punch 


NOHALT STATEMENT 


Function Normally the system halts when a program ends. The NOHALT statement tells 
the system to continue by reading the next set of OCL statements without stop- 
ping, when a program ends. The effect of this statement lasts until the system 
reads a HALT statement or an IPL occurs. The effect of the NOHALT statement 
is ignored temporarily when an abnormal job halt occurs. The system reverts to 
the NOHALT mode after a response. 





Placement A NOHALT statement can be placed anywhere among the OCL statements. Ina 
procedure it must precede the RUN statement. The NOHALT statement is ignored 
if loaded in program level 2. 





Format // NOHALT 

Contents None 

HALT STATEMENT 

Function The HALT statement tells the system to halt when a program ends. The operator 


can restart the system when he is ready, and the system continues reading the 
next OCL statements. 


The HALT statement is needed only if you want to cancel the effect of a NOHALT 
statement. 


Placement A HALT statement can be placed anywhere among the OCL statements. Ina 
procedure it must precede the RUN statement. The HALT statement is ignored 
if loaded in program level 2. 


Format // HALT 


Contents None 


*(COMMENT) STATEMENTS 


Function Comment statements are commonly used either to explain the jobs or to give the 
operator instructions. Operator instructions are usually given in connection with 
a PAUSE statement. Comment statements are printed along with the other OCL 
statements. They have no other effect on the system. 


Placement You can include, in OCL statements, special statements that contain only com- 
ments. Comment statements must contain as asterisk (*) in column 1. They can 
be placed anywhere among the OCL statements in either a job stream or a pro- 


cedure. 
Format *comment 
Contents The comment can be any combination of words and characters. The only require- 


ment is that an asterisk (*) be in column 1. 
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~ PAUSE STATEMENT 





Function 


Placement 


Format 


Contents 


The PAUSE statement causes a halt. It usually is used to give the operator time 
to prepare for the next program. He might, for example, have to place removable 
disks on the disk units or insert special forms into the printer. Comment state- 
ments that give the operator instructions usually precede PAUSE statements. 


When the operator is ready, he can restart the system. The system continues 
reading the OCL statements that follow the PAUSE statement. 


PAUSE statements can be placed anywhere among the OCL statements. Ina pro- 
cedure it must follow the LOAD statement and precede the RUN statement. 


// PAUSE 


None 


/& STATEMENT 





Function 


Placement 


Format 


Contents 


/& statements are used as a precautionary measure. Placed in front of your OCL 
set, a /& statement signals the system that a new set of OCL statements is coming. 
It prevents your statements from being read as a part of the preceding set of 
statements or data. Any attempt to read more data from that device will be block- 
ed. 


/& statements are not required. It is recommended, however, that you use them 
as the first statement in each of the sets of OCL statements for your programs. 
They are not allowed in a procedure. 


/& 


None 


/* STATEMENT 


Neen eee nee ee ee ee ee ee ee ee eee acne opened a RN NAR 


Function 


Placement 


Format 


Contents 


/* statements indicate the end of a data file read in from a card reader 
or console. 


A /* statement should be the last card of an input data file or program 
deck. 


f 


None 


FILE STATEMENT 





Function 


Placement 


Format 


Contents 


The FILE statement supplies the system with information about disk files. The 
system uses this information to read records from and write records on disk. 


You must supply a FILE statement for each of the new disk files that your programs 
create, and for each of the existing disk files that your programs use. The FILE state- 
ment must follow the LOAD or CALL statement and precede the RUN statement. 


// FILE parameters 


All of the parameters are keyword parameters. The parameters are as follows 
(keywords are in capital letters): 


— NAME-filename (in program) 

~ UNIT-code 

— PACK-name 

~— LABEL-filename (on disk) 

— RECORDS-number or TRACKS -number 


track number (5444 disk only) 

~— LOCATION- cylinder number 
cylinder number/track number 5445 only 
filename 


— RETAIN-code 
— DATE-date 


— HIKE Y-highest allowed key fields (on pack) 


— SPLIT-number of tracks per cylinder or both 
the number of tracks per cylinder and the 
number of cylinders (5445 disk only) 


The NAME, PACK, and UNIT parameters are always required. The others are re- 
quired only under certain conditions. 


NAME: The NAME parameter is always needed. It tells the system the name that 
your program uses to refer to the file. The NAME parameter must be placed on 
the first card or line if two or more cards or lines are used for the FILE statement. 
(See General Coding Rules for rules on continuation.) 


If you are executing a program compiled by RPG I! that uses a disk file, the 
filename in this parameter must be the same name used on the File Description 


specifications at compile time. 


For some of the programs, you must use specific names for certain files. 
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FILE STATEMENT (continued) | —_ 
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Program File Name 


Disk Copy/Dump Input COPYIN 
Output COPYO 


Disk Sort Input INPUT 
Work WORK 
Output OUTPUT 


Assembler Input $SOURCE These files 
Work SWORK must be on 
Output SWOR K 2 (optional) ‘ a 5444 
disk device. 
RPG II Input $SOURCE 
Compiler Work SWORK 


The keyword for the parameter is NAME. It must be followed by the filename 
used by the program. The name can be any combination of characters except 
commas, quotes, or blanks. The first character must be alphabetic. The number 
of characters must not exceed 8. The following example shows how the NAME 
parameter for a file named FILEA would be coded. 


MeMetetcteteteen es oe nn amet et et etter Orerere rec erer ate atetstatetet et 
etetc tees tele te tetatet.t.8. 0.8 eww 8. 
Peter etate a eee ttete ta tate tate atatctatetetete seme" ace o.p'o-e"pteteten eee erere nee eee e te tet e tote tateete tena tena eta tatetetetetete teehee he Die iw ee eee a ete 
Feet tothe t chelate tet e hatchet hee, 0c00 0.8108 0 a8 ow 0 0"p eter ea re tenes”, 
orotate teeta te oti Rahe es che ete en ee Pe at a stenotic ts ces Sn. .8 880.8 00 a intale ea te teens ate MMe tee ete eo tete' 





hoc te etc co hie Renee inten leet eee oe! 
evan 
aretetetetete Pet Deretetetntetete'ats Peter etetetetetotete Ee. 


Sere 
'*e tae’ eect etetatetY 
Bes es ee Bea SEES 


or orerele eee. 


WF Teste Le Pao Mec CT 
PECCELT Peper eePer epee bepepe eet EEPTTT ITT 


UNIT: The UNIT parameter is always needed. It tells the system the disk that 
contains or will contain the file. The keyboard for this parameter is UNIT. It 
must be followed by a code that indicates the unit. The codes are as follows: 





R1 Removable disk on 5444 drive one 
F1 Fixed disk on 5444 drive one 
R2 Removable disk on 5444 drive two 
F2 Fixed disk on 5444 drive two 
D1 Removable disk on 5445 drive one 
D2 Removable disk on 5445 drive two 


The previous example shows how the UNIT parameter for a file located on the 
removable disk on drive one would be coded. 


PACK: The PACK parameter is always needed for disk files. It tells the system 
the name of the disk that contains or will contain the file. The system checks this 
name to ensure that the proper disk is being used. (For information about how a 
disk is given a name, see Disk Initialization in Part II of this manual). 


The keyword for this parameter is PACK. It must be followed by the name of the 
disk. Figure 15 shows how the PACK parameter for a file on a disk named VOL1 
would be coded. 


FILE STATEMENT (continued) 


LABEL: The LABEL parameter tells the system the name by which your file 
is identified on disk. 





if the file is being created, the name you supply in the LABEL parameter is used 
to identify the file on disk. If you omit the LABEL parameter from a disk FILE 
statement, the name from the NAME parameter is used. 


If the file is an existing disk file, you must supply a LABEL parameter when the 
name your program uses to refer to the file differs from the name by which the 
file is identified on disk. 


Several versions of a file can be created on the same disk and be given the same 
name. If the TRACKS or RECORDS parameter you are using in creating a file 
is the same as the TRACKS or RECORDS specified for an existing file you must 
specify LOCATION. You can reference each of these files by its name and date, 
or by its name and location on disk. Both date and location must be unique for 
each version. (See Example 2 for an example of how to reference one version of 
a file.) 


If a space parameter (TRACKS or RECORDS) is given when creating another 
version of an existing file it must be equal to the original value for the existing 
file. 


The keyword for the parameter is LABEL. It must be followed by the name of 
the file on disk. The name can be any combination of characters except commas, 
quotes, or blanks. The first character must be alphabetic. The number of char- 
acters must not exceed 8. The LABEL parameter for a file named PAY ROLL is 
coded in the following example. 





TRACKS or RECORDS: The TRACKS or RECORDS parameter is needed for 
files that are being created. The parameter tells the system the amount of space 
needed on disk for the file. 


If you use the TRACKS keyword, you specify the number of disk tracks needed 
for the file. 


If you use the RECORDS keyword, you specify the approximate number of 
records for the file. The total space allocated will be rounded up to full tracks 
allowing adequate space to accomodate at least the number of records indicated. 


Either of these two keywords, TRACKS or RECORDS, can appear in the FILE 


statement, but not both. The keyword must be followed by a number indicating 
the amount of space needed. 
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FILE STATEMENT (continued) 
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If TRACKS is used, the number must be within the range 1-398 if you are using 
full capacity 5444 disk packs. If you are using half capacity 5444 disk packs, the 
number must be within the range 1-198. If you are using 5445 disk packs, the 
number must be in the range of 1-3980. The following example shows how the 
TRACKS parameter for a file requiring 20 tracks is coded. 


77UFILE Waele P-L Reece eT 
PEELE PEE CEP EL Pere Peer 


If RECORDS is used, the number can be up to six digits long. The RECORDS 
parameter for a file containing 250 records is coded as follows: 


URILE NAMELE 2 
rE 
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LOCATION: The LOCATION parameter is not required. It can, however, be 
used for files that are being created. LOCATION is required when creating 
several versions of a file or when loading an offline multivolume file to packs 
which contain other files. (See Example 4.) !t can also be used in referencing 
one of several files housing the same name and same size. LOCATION is not 
required if sizes differ. 


For files that are being created, the parameter tells the system the number of the 
track on which the file is to begin. If it is omitted, the track is chosen for you. 


For files that are being referenced, the parameter tells the system the number of 
the track on which the file begins. In this case, the system uses the track number 
to tell one file from another. 


The keyword for this parameter is LOCATION. For the 5444 disk the 
LOCATION format is: 


LOCATION-track number 
Track number must be between 
8-205 (half-capacity disk) or 
8-405 (full-capacity disk). Tracks 
0-7 are reserved for the system. 


For the 5445 disk the LOCATION format is: Slash is needed to separate 
cylinder number and track 
LOCATION-cylinder number/track number number (when both are 
| specified 


Cylinder number must be Track number must be between 0-19. 
between 1-199. Cylinder 0 Track number 0O is assumed if track 
is reserved for the system. number is not specified. 


Split cylinder file support on the 5445 disk allows for an additional 
LOCATION parameter: 


LOCATION-file name 


For a discussion on how the LOCATION parameter is used when 
specifying split cylinder files, see Sp/it Cylinder Files. 


FILE STATEMENT (continued) 


RETAIN: The RETAIN parameter is used to classify files according to their use: 
scratch, temporary, or permanent. 





A scratch file is normally used only once in a program and not retrieved after 

the program has ended. However, a scratch file can be retrieved if a previous pro- 
gram has defined it as a permanent or temporary file and then redefined it as a 
scratch file. To change a permanent file to a scratch file you must use a utility 
program. A temporary file can become a scratch file by using a utility program 
or by using a RETAIN-S parameter. A RETAIN-A parameter is needed to change 
a scratch file to a temporary file. A scratch file cannot become a permanent file 
unless it becomes a temporary file first. A temporary file can be changed to a 
permanent file only if the file name is changed and copied as a permanent file. 
The system will overlay a scratch file if the disk pack is full and/or file space 

is needed by a new file or by a system program. 


A temporary file is usually used more than once. The area containing a temporary 
file can be only given to another file under one of the following conditions: 


1. A FILE statement containing the RETAIN-S parameter is supplied for the 
temporary file. This converts the temporary file to a scratch file. 


2. Another file with the same LABEL name is loaded into the exact area 
occupied by the temporary file but this only changes the data. Space and 
location parameters are required. 


3. The File Delete program is used to delete the file. 


The area containing a permanent file cannot be used for any other file until the 
File Delete program has deleted the permanent file. 


A disk file is classified as scratch, temporary, or permanent when it is created. 

If the RETAIN parameter is omitted from the FILE statement when the file is 
created, the file is assumed to be a temporary file. The RETAIN parameter may 
be omitted when accessing an existing file; however, RETAIN-A must be coded 
to reactivate a scratch file. 


The keyword for the parameter is RETAIN. It must be followed by a code that 
indicates the classifications of the file. The codes are: 


Code Meaning 

S Scratch file 

T Temporary file 

P Permanent file 

A Reactivate scratch file 


The RETAIN parameter for a permanent file is coded as follows: 


Kel erah We 
SP PRR eeE EET 
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DATE: The DATE parameter tells the system the date of a file. It is used to 
ensure that the proper version of the file is referenced. 


When a file is created on disk, its LABEL name and creation date are written on 
the disk as identification. The system date is the date used. (The system date 
is explained under DATE Statement.) More than one file on a disk can be given 
the same name. The creation dates of these files must, however, be different. 
To reference such a file, you can use its name and date (see Example 4), or its 
name and location on disk. If neither the date nor the location is given, the file 
having the latest date is the one automatically referenced. 


The keyword for this parameter is DATE. It must be followed by a 6-digit 
number representing the date (two more spaces are allowed for punctuation 
delimiters). 


The date can be coded in one of two forms: month-day-year (mmddyy) or 
day-month-year (ddmmyy). You must specify the form when the system is 
generated. The date you specify in the DATE parameter must be in that form. 
The date can be coded with or without punctuation. For example, July 31, 1971, 
might be coded in any one of the following ways: 


073171 
310771 
07/31/71 
31/07/71 


Month, day, and year must each be 2-digit numbers but lead zeros in month and 
day may be omitted when punctuation is used (7-31-71 or 31-7-71). A blank, 
comma, number, or quote cannot be used to punctuate the date. 


To illustrate this parameter, assume that two versions of a file are written on the 
same disk. In the next example are the NAME, LABEL, and DATE parameters 
for two versions of a file on the same disk, one written on April 5, 1971, the 
other on August 3, 1971. Both files have the same label: FOOO1. 


HIKEY: The HIKEY parameter must be used when you define a multivolume 
indexed file. The highest keyfield for each pack must be entered. For further 
information and an example of HIKEY see Multivolume Files under Using OCL. 


SPLIT: The SPLIT parameter is used when creating and maintaining split 
cylinder files on a 5445 disk. For further information on SPLIT see 
Split Cylinder Files. 


FILE STATEMENT (continued) 
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Examples 


The following are examples of FILE statements. In each example, the file is 
described first, then the corresponding FILE statement is shown. 


Example 1: Suppose that each week you create a disk file that contains the 
records for the transactions you had made that week. Assume the following 
facts about that file: 


- The name your program uses to refer to the file is TRANS, which is also 
the name you want to use to identify the file on disk. 


— You are placing the file on a removable disk named VOLO3. 

— You intend to mount the disk on drive one. 

— You want to save the file for use at the end of the month. 

— The file contains 225 records. 

— You are letting the system choose the disk area that will contain the file. 


The following example shows how the FILE statement for the preceding file is 
coded when using a 5444 disk. 


12 16 40 44 52 
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The FILE statement when using a 5445 disk would be: 


36 37 38 39 40 41 42 43 4445 46 47 48 4950 51 52 53 54 55 56 57 seeseoe 
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Example 2: Suppose you had created, on the same disk (VOLO3), four versions 
of the transaction file described in the preceding example—one for each of the 
weeks in February, 1970. Assume the following: 


— You had created the files on the following days: 2/6/70, 2/13/70, 
2/20/70, and 2/27/70 (these were the system dates used for each of the 
files). 

_ You want to reference the third file (the one created 2/20/70). 

— You intend to mount the disk on drive one. 

The file statement you would need is: 

12 16 * 20 2 2 

TIRIAIN 
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FILE STATEMENT (continued) 





Example 3: Suppose at the end of the month you combine the files referred 
to in Example 2, for use in preparing your monthly bills. Further assume the 
following: 


Your program uses the name TRANS to refer to the file, but you want to 
use the name BILLING to identify the file on disk. 


You are expressing the amount of disk space as the number of tracks re- 
quired to contain the file (assume the number is 15), and you want the 
file to begin on track 8. 


You are placing the file on a removable disk named VOLO1. 


You intend to mount the disk on drive one. 


The following example shows the FILE statement you would use for this file. 





| Example 4: Suppose you want to create two versions of two files on disk and 
later to access one version of each file. Further assume the following: 


The names your program uses to refer to the files are AA and BB, which 
are also the names you want to use to identify the files on disk. 


File AA is being placed on a fixed disk on drive two named FIXED2. 
File BB is being placed on a removable disk named REM5. 

You intend to mount the disk on drive two. 

One version of each file is created on 5/11/70 and 5/12/70. 


Disk space and location for the files are: 


File Version Tracks Location 
AA 5/11/70 10 200 
5/12/70 10 210 
BB 5/11/70 20 200 
5/12/70 20 220 


— You want to access file AA, version 5/11/70 and file BB, version 5/12/70. 


FILE STATEMENT (continued) 


The following OCL statements are needed to create the above versions of files 


AA and BB and to access a version of each file. 
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LOCATION and space (TRACKS or RECORDS) must be specified when 


you are loading to an existing temporary file. 


File Processing Considerations 


lf you are referencing a file by the DATE parameter and space is given, the 


space must be equal to the space given when that file was created. 


If you are accessing a file by the LOCATION parameter and space is given, 


the space must be equal to the space given when that file was created. 


You can create several versions of a file with a program by changing the 


locations of the files and using different system dates. 


You can create different versions of a file without LOCATION if the space 


parameters as well as the system dates are different. 


The system assumes that a new file is being created if space is given without 


LOCATION or DATE and the given filename was found but its space does 


not match. 


The DATE parameter is only allowed for accessing existing files. 


Whenever a load is performed to an existing file, the system date replaces 


the previous date for that file. 
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FILE STATEMENT (continued) 


— lf a RETAIN parameter is not specified when loading to an existing file, 
the existing file classification is assumed. 


— When a scratch file is created, it is not entered in the Volume Table of 
Contents (VTOC). After the job that created the file is run, the file is lost. 
The way that an S retain type can appear in the VTOC is to change a T 
entry to an S by using RETAIN-S in the FILE statement, or to change a T - 
or P entry to S by using a $DELET SCRATCH statement. 
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Function 


Piacement 


Format 


Contents 


Example 


CALL statements are needed only when you want to merge procedures into the 
job stream. 


To understand the funtion of the CALL statement, you must understand the 
relationship between the job stream and procedures. The job stream contains 
the OCL statements that control the system. The system reads it either from 
cards or the printer-keyboard. Procedures are sets of OCL statements in a source 
library on disk. They have no effect on the system until they are merged into 
the job stream. | 


You can modify the procedure identified by a CALL statement, by providing other 
other OCL statements (procedure override statements, see Changing Procedure 
Parameters) after the CALL statement. These statements temporarily modify the 
procedure. The last statement of the CALL sequence must be a RUN statement. 
The RUN statement is required, however, whether or not you supply other OCL 
statements. (Procedures are further explained in Procedures. ) 


CALL statements can be used in the job stream or in a procedure. They are, in 
effect, replaced by the procedures they identify. The last statement of the CALL 
sequence must be a RUN statement. 


// CALL procedure-name,unit 


Procedure-name: The procedure-name is the name that identifies the procedure 
in the source library. You supply the procedure-name in the Library Mainten- 
ance control statements when you use the program to place the procedure in the 
library. (See Library Maintenance in Part |! of this manual for restrictions on 
procedure-name.) 


Unit: The unit parameter is a code. The code indicates where the disk that con- 
tains the procedure is located on the disk unit. The codes are as follows: 


Code Meaning 

R1 Removable disk on drive one 
F 1 Fixed disk on drive one 

R2 Removable disk on drive two 
F2 Fixed disk on drive two 


There is no CALL statement example here. The following section, Procedures, 
contains CALL statement examples. 
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PROCEDURES 


Procedures are sets of OCL statements in a source 
library on disk. Procedures can be put into the 
source library by using the Library Maintenance 
program. (See Part I of this manual, Library 
Maintenance, Copy Function, Reader-to-Disk.) 
Procedures must begin with a LOAD statement as 
the first OCL statement. All OCL statements 
except READER; CALL, LOAD, and /&, can follow 
the LOAD statement in a procedure. Object pro- 
grams loaded from cards (LOAD”) are not allowed 
in procedures. The object programs are loaded 
from the system input device. However, LOAD* 
statements are allowed in procedures. — 


A maximum of 25 utility control statements can 
be included in procedures for the utility programs. 
The utility statements must follow the OCL state- 
ments in the procedure. (See Library Maintenance, 
Part I! of this manual.) A RUN statement must be 
the last OCL statement in the procedure to separ- 
ate the OCL statements from the utility control 
statements. The RUN statement in the job stream, 
rather than the one in the procedure, causes the 
system to run the program. 


An example of a procedure is shown in Figure 9. 
This procedure will be referred to in all of the 
following examples. Assume that the name of the 
procedure is PROC1. The procedure-name is the 
name that identifies the procedure in the source 
library. Further assume that the procedure is 
contained on the fixed disk on drive one (F1). 


Normal Procedure Call 
To merge the procedure (unchanged) into the job 
stream, the statements in Figure 10 would be used 
in the job stream. 


CEN SS EEN 
PONT IN IN TAN 


Figure 9. Procedure Example 
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Figure 10. Normal Call for Procedure 


Changing Procedure Parameters 
You can change any of the parameters in any of the 
statements in the procedure for one job, by placing 
procedure override statements between the CALL 
and RUN statements. Procedure override statements 
modify the procedure for one job only. For example, 
assume you wanted to make the following changes 
to procedure PROC1 (see Figure 9): 


@ In the first FILE statement (NAME-DALTOT), 
change the RECORDS parameter from RECORDS- 
1500 to RECORDS-1750. 


@ Change the parameter in the SWITCH statement 
from XXX01XX0 to XXX10XX1. 


Figure 11 shows the statements needed in the job 
stream to call and modify PROC1. Note that the 
NAME parameter is also supplied in the FILE state- 
ment. This is necessary to identify the FILE state- 
ment to which the change applies. 





Figure 11. Call for Procedure: Changing Parameters 


Delete a Procedure Parameter 
Besides changing a parameter you can delete a para- 
meter in a procedure statement entirely if it is a 
keyword parameter. To delete a parameter in any 
of the statements you must code the keyword and 
the hyphen and follow them immediately with a 


comma. The statement in Figure 12 deletes the 
RETAIN parameter completely. 





Figure 12. Deleting a Procedure Parameter 


Adding a Statement 
You can add statements to the procedure by plac- 
ing the statements you are adding between the 
CALL and RUN statements. For example, assume 
that you wanted to add a NOHALT statement to 
the procedure. Figure 13 shows the statements 
needed in the job stream. 





Figure 13. Call for Procedure: Adding a Statement 


Add Missing Parameter 
You can omit any of the parameters from all OCL 
statements in a procedure. If you do, you must 
supply the missing parameters between the CALL 
and RUN statements. For example, assume that 
the procedure contained the LOAD statement 
shown in Figure 14. The statements in Figure 15 
would be needed in the job stream to run the 
ENDMON program. Note that the entire LOAD 
statement did not have to be supplied. Only the 
missing parameter was included. 


CALL PROC1,F1 
LOAD ENDMON,R2 





Figure 15. Call for Procedure: Supplying a Missing Parameter 


Example 


Procedure override statements are printed on the 
logging device along with the statements in the 
job stream. Assume that the statements in Figure 
16 are used in the, job stream. The statements 
from the procedure would be merged with the 
preceding statements and printed as shown in 
Figure 17. 


Statements preceded by XX represent the pro- 
cedure statements as they appear in the source 
library. The CALL and RUN statements and 

any statements which are intended as overrides to 
procedure statements or additions to the procedures 
begin with //. 





Figure 16. Call for Procedure Example 


FILE NAME-DALTOT, UNI T-F2,PACK-VOL04,RECORDS-1500,RETAIN-P 


FILE NAME-DALTOT,RECORDS-1750 


FILE NAME-ACCTOT,LABEL-TOTALy UNIT-R1,PACK-VOLO2, DATE-01/04/ 71 


SWITCH XXXO1LXXO 
SWITCH XXX10XX1 
NOHALT 

RUN 

RUN 


Figure 17. Printout of Sample Case 
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Nested Procedures 
Some procedures are done in the same order every 
time a job is performed. Nesting procedures is a 
convenient way to link the procedures together 
and requires you to call only the first procedure. 
Each procedure will call the next procedure until 
the job has been completed. 


By nesting procedures together several benefits can 
be realized. 


@ Programs are always run in the correct sequence. 


@ Operator intervention (and chance of operator 
error) is decreased. 


@ File space can be saved. Files used to pass data 
from job to job can be scratched after the last 
program. 


@ Files are less likely to be destroyed by running 
nonrelated programs between programs of a job. 


Here is an example of how nested procedures might 
be used. Suppose you want to back up a fixed disk 
pack containing files which will be used in the 
future. The OCL statements and utility control 
statements to copy one disk pack (F2) to another 
disk (R2) would Jook like this if nested procedures 
were not used: 


By using nested procedures these control statements 
could be stored on disk and the job could be per- 
formed by calling only one procedure. Figure 18 
shows the three procedures needed to perform the 
copy job described. There is only one CALL state- 
ment necessary in the job stream from the system 
input service. 


This CALL statement links the job stream to a 
master procedure (CPYF22) which is used to call 

the procedure necessary to perform the job. 

CPY F22 contains three CALL statements that call 
the three procedures necessary to copy F2 to R2. 
Notice that CPY F22 contains only CALL statements. 
Any procedure within nested procedures can consist 
entirely of CALL statements and does not need a 
RUN statement to indicate the end of the procedure. 
Nested procedures allow you to have an unrestricted 
number of CALL statements in a procedure. There- 
fore CPYF22 could have more then three CALL 
statements if you felt it necessary to add any pro- 
cedures. 
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Figure 18. Nested Procedures 


Figure 19 is an inventory application of nested 
procedures. A company issues daily reports on 
goods bought and sold by calling the DAY pro- 
cedure. By nesting procedures together a daily 
report and a weekly report can be written by 
calling the WEEK procedure. Once a month // 
CALL MONTH is used to write out daily, weekly, 
and monthly reports. Finally, monthly, weekly, 
daily, and yearly reports are written once a year by 


/1CALL YEAR // CALL MONTH 








// CALL WEEK 


Level 2 


// LOAD -$MAINT,F1 
// RUN 

/f ALLOCATE 

// END 











//LOAD $DELETE,F1 
// RUN 

// REMOVE 

// END 








\ // COPYPACK... 
// END 






calling the YEAR procedure which nests all of the 
other procedures together. 


No more than nine levels of CALL procedures can 
be nested together. Levels of procedures are deter- 
mined by the number of CALL statements away 
from the system input device a procedure is 
located. For instance, in Figure 19 when // CALL 
YEAR is given in the system input device, the 


// CALL WEEK /1 CALL DAY 











SS Week 
. . 
\ 





/1 CALL WEKSUM | 





Figure 19. Inventory Example 
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YEAR procedute would be one level away from 
the system input device. MONTH and END1 pro- 
cedures are two levels away from the system input 
device when // CALL YEAR is given. 


By using nested ptocedures, fewer control state- 
ments are needed in the job stream from the 
system input device. However, certain rules must 
be followed to make nested procedures work: 


1. No more than nine levels of procedures are 
permitted. 


2. Each procedure may have an unrestricted num- 
ber of CALL statements to the next level of 
procedures. 


3. Only utility control statements can follow a 
RUN statement. 


4. Procedure additions or overrides supplied between 
the CALL and RUN statements in the job 
stream are merged between the first LOAD and 
RUN statements encountered in the procedures 
(see Example of Nesting Procedures). 


5. Any OCL statements permitted before the RUN 
statement in the job stream are also permitted 
anywhere before the RUN statement in a pro- 
cedure (see Example of Nesting Procedures). 


Example of Nesting Procedures 


Suppose you want to decrease operator intervention 
by using the NOHALT statement. In Figure 18 the 
NOHALT statement could be placed between the 
CALL and RUN statements in the system input 
device. In this case it would be read as an additional 
OCL statement for the DEALIB procedure. 
However, it could be placed anywhere in the master 
procedure, CPYF22, or anywhere before the RUN 
statement in the DEALIB, DEALF1, or CYF2R2 
procedures. The rule would still be followed no mat- 
ter what procedure contained the additional OCL 
statement. 


This section is designed to aid you in your use of OCL 
manual involving the use of OCL are: 


Compiling an RPG II program 

Processing a card file 

Creating and processing a disk file 

Processing two disk files 

Processing a disk file that uses external indicators 
Creating and processing multivolume files 
Creating and processing split cylinder files 
Automatic file allocation 

Storing programs and procedures into libraries 
Checkpoint/restart 

Dual programming feature 


Statement examples 


. The topics described in this 


For a more complete explanation of the statements, their parameters, and coding 
rules refer to Statement Descriptions and Coding Rules in Part | of this manual. 
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COMPILING AN RPG Il PROGRAM 


After your RPG II program is written and recorded 
in cards, it must be compiled. To compile an RPG 


Il program, two OCL statements are required, 
CALL and RUN. 





77 CALL RPG, Fl * 





In the preceding example the first statement, // 
CALL RPG,F1, tells the system to get the RPG II 
Compiler from the fixed disk. The second statement 
// RUN, tells the system to run the compiler pro- 
gram. The source deck always follows the RUN 
statement. 


CREATING A DISK FILE 


To create a disk file, sequential or indexed, you 
must tell the system the size of the file and the 
use of the file. To state the file size (using the 
FILE statement), two keywords are available: 
TRACKS and RECORDS. You may use one or 
the other, but not both. 


If you use RECORDS, the system calculates the 
disk space required and converts it to tracks for 
you. If you use the TRACKS parameter, there is 
no need for the system to perform these calcula- 
tions. 


A file is classified as scratch, temporary, or perman- 
ent when it is created. You use the RETAIN para- 
meter of the FILE statement to tell the system how 
to classify the use of a file. If you omit the 
RETAIN parameter, the file is assumed to be a 
temporary file. 


For example, you want to create a master file of 
names and addresses. You would code the following: 
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(This master file is classified as permanent.) 


LOADING AND RUNNING PROGRAMS 


IBM Programs 
Many IBM programs require only two OCL state- 
ments, LOAD and. RUN. 


The following examples show the OCL cards needed 
to load and run two IBM programs. (The Disk 
Initialization and File Delete programs are discussed 
in Part I! of this manual.) 






// LOAD $INIT, F1 


The Disk Initialization program 
is loaded and run. 


//LOAD $ DELET, F1 





The File Delete program is 
loaded and run. 


Object Programs Using Card Files 


LOAD and RUN are the only two OCL statements 
needed to load and run RPG I! programs that use 
no disk files. To run acertain job, the object pro- 
gram must be loaded into storage. To load an ob- 
ject program that is on cards (object deck), an * 
must follow the word LOAD. (The ™ tells the sys- 
tem that an object deck follows the RUN state- 
ment.) 


For example, only these two statements are re- 
quired for a program that prints data from a 
transaction card file. 
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Object Programs Using One Disk File 


To load and run an object program that uses a 
disk file, another OCL statement is required: 
FILE. Three items of information must follow 
the word FILE: 

@ The name of the file. 


@ The name of the disk pack the file is on. 


@ The location of the disk pack. 


For example, you want to load and run an object 
program using a disk file named SEQDISK. The 
file resides on removable disk pack named VOL1. 
You would code the following: 
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Object Programs Using More Than One Disk 


File 


One FILE statement is required for each disk file 
used by a program. To load and run an object 


program that uses two disk files, two FILE state- 


ments are required. 


In the following example, two disk files are used: 


an input file (INDISK) and an output file (OUT - 


DISK). 





“INI NINES 


The first FILE statement contains information 


needed to access the data in that file. The second 


FILE statement contains information needed to 


create an output file. 


Object Programs Using One Disk File and 


External Indicators 


The SWITCH statement is used to set external in- 


dicators (U1-U8 on RPG II specifications sheets) 


on or off. External indicators are used to regulate 


when certain functions are performed. 


In the following example,you are running a program 
using one disk file (INVMSTR), an inventory master 


file. 


I ONION TN 
=I ISI SS 


In order for the program to perform certain func- 


tions, such as updating and output, the first exter- 


nal indicator (U1) must be turned on. In the 


SWITCH statement the eight characters correspond 


to the eight external indicators. In this program only 


one external indicator (U1) is used. 
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MULTIVOLUME FILES The rules for coding a list of data or codes after a 


Coding the FILE statement to process multivolume keyword are as follows: 
files differs from single volume files in that you | 
must define and code additional parameters for 1. The list must be enclosed by apostrophes. 
these keywords: PACK, UNIT, TRACKS, RE- 
CORDS, and LOCATION. 2. The items in the list must be separated by com- 
mas. No blanks are allowed within or between 
These additional parameters are necessary for two items. 
reasons: 
Figure 20 shows an example of lists in parameters. 
1. When processing files contained on more than The file is online. 
a single volume, the system requires information 
about each volume in order to perform all the The PACK parameter requires a list. The UNIT par- 
protection and checking functions necessary. ameter may require a list while LOCATION, 
TRACKS, HIKEY, and RECORDS require a list 
2. Additional information is needed to determine if they are stated. The considerations for using the 
and check the sequence in which the volumes lists in these parameters are included in the para- 
are processed and when they are to be mounted meter discussions following. The functions of the 
on the disk drives. parameters are explained under FILE statement. 
(Parameters not mentioned here are used as ex- 
Because a multivolume file involves more than one plained under F/LE Statement.) 


disk, some FILE statement parameters require 

a list of data or codes to describe all of the disks 
containing the files. This section explains the con- 
siderations for using these lists in the parameters. 
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Figure 20. Lists of FILE Statements 
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PACK 


UNIT 


FILE STATEMENT PARAMETER CONSIDERATIONS FOR MULTIVOLUME FILES 


The names of the disks that contain or will contain the multivolume file must 
follow the keyword PACK. (PACK names must be unique for proper function- 
ing.) 


When a multivolume file is created, the system writes a sequence number on the 
disks to indicate the order of the disks. The disks are numbered in the order in 
which you list their names in the PACK parameter. 


When a multivolume file is processed the system provides two checks to ensure 
that the disks are used in the proper order. 


1. it checks to ensure that the disks are used in the order that their names 
are listed in the PACK parameter. 


2. it checks the sequence numbers of the disks used to ensure they are con- 
secutive and in ascending order (01, O02, and so on). 


The system stops when it detects a disk that is out of sequence. The operator 
can do one of three things: 


1. Mount the proper disk and restart the system. 


2. Restart the system and process the disk that is mounted if the sequence 
is ascending (for consecutive input and update). 


3. End the program. 


Consecutive input or update sequence numbers are ignored if the file was not 
created as multivolume. If the file is multivolume created and the sequence 
is ascending but not consecutive, a diagnostic halt is given which allows the 
proceed option. 


The following is an example of the PACK parameter for an offline multivolume 
file that is contained on three disks, named VOL1, VOL2, and VOL3. 
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The keyword UNIT must be followed by a code or codes indicating the location 
on the disk unit that contains or will contain the file. No UNIT parameter may 
be repeated. The codes are as follows: 


Codes Meaning 

R1 Removable disk on 5444 drive one 
F1 Fixed disk on 5444 drive one 

R2 Removable disk on 5444 drive two 
F2 Fixed disk on 5444 drive two 

D1 Removable disk on 5445 drive one 
D2 Removable disk on 5445 drive two 


FILE STATEMENT PARAMETER CONSIDERATIONS FOR MULTIVOLUME FILES (continued) 


The order of codes in the UNIT parameter must correspond to the order of 
names in the PACK parameter. 





When you are creating or processing a consecutive or indexed file, you can use 

the same drive for more than one of the disks, however, the disks must then all 

be removable disks. If you do, you must not repeat the code for the drive in the 
UNIT parameter. When the number of codes in the UNIT parameter is less than 
the number of names in the PACK parameter, the system uses the codes alternately. 


For the 5445 the UNIT parameter can have a maximum of two unit codes. 
When two unit codes are given, the volumes must be mounted alternately in 
the order indicated by the unit codes. If all the volumes are to be mounted 
on the same drive, you specify only one unit code. 


If any fixed unit, F1 or F2, is specified, the file must be online multivolume. 


Assume that your program processes an offline file consecutively. Further 
assume the following: 


— The disks containing the file are named VOL1, VOL2, and VOL3, respectively. 


— You intend to mount VOL1 and VOL3 on 5444 drive one, and VOL2 
on 5444 drive two. 


In the following examples, line A shows the PACK and UNIT parameters for the 
file. If all three disks were used on 5444 drive one, the UNIT parameter in line B 
would have been used. 
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TRACKS or RECORDS A keyword, TRACKS or RECORDS, must be followed by numbers that indicate 
the amount of space needed on each of the disks that will contain the multivol- 
ume file. TRACKS or RECORDS must be specified. Any multivolume file 
load requires a TRACKS or RECORDS parameter whether the file previously 
existed or not. The order of these numbers must correspond to the order of the 
names in the PACK parameter. For example, assume the following: 


— Your program is creating a sequential (offline) file on three disks: 
VOL1, VOL2, and VOLS. 


— The first 50 records are to be placed on VOL1, the next 500 on VOL2, 
and the last 200 on VOLS. 


The PACK and RECORDS parameters for the file are: 
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FILE STATEMENT PARAMETER CONSIDERATIONS FOR MULTIVOLUME FILES (continued) 


LOCATION The keyword LOCATION must be followed by the numbers of the tracks on 
which the file is to begin on each of the disks you use for the file. The order 
of the numbers must correspond to the order of the names in the PACK para- 
meter. For example, assume the following: 


_ The disks containing the file are: VOL1, VOL2, and VOL3. 


— The tracks on which the file is to begin on each disk are: ‘track 198 in 
VOL1, track 10 in VOL2, and track 8 in VOLS. 


The PACK and LOCATION parameters for the file are shown in the following 
example. If you omit the LOCATION parameter, the system chooses the be- 
ginning track on each of the disks. If LOCATION is specified for one disk, it 
must be specified for all disks. If the multivolume file exists, LOCATION must 
be given for all disks and must be identical to the LOCATION parameters spec- 
ified when the file was created. 





RETAIN RETAIN-S must not be specified unless the file is online multivolume. If 
| RETAIN-S is used for online multivolume, it cannot be changed to RETAIN-T 
unless also done online. 


HIKEY The HIKEY parameter is used only for multivolume indexed files. HIKEY 
limits the highest keyfield that can be put on each pack of a multivolume file. 
The following example contains an example of a HIKEY parameter list using 
the file used in example A under Unit. In this case the three volumes contain 
lists of names. The highest keyfield allowed on the first volume is JONES. This 
means that all the records beginning with A and including JONES will be pro- 
cessed on this volume. Since HIKEY parameters must be in ascending order, 
the next volume should contain all of the records with names following JONES 
and including NICHOL. The last volume will contain all the records with names 
that come after NICHOL. 
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FILE STATEMENT PARAMETER CONSIDERATIONS FOR MULTIVOLUME FILES (continued) 


OCL considerations for the HIKEY parameter are: 

1. All characters except commas are valid. 

2. The list of HIKEY parameters must begin and end with an apostrophe 
even if only one parameter is specified. A single apostrophe in a key field 


must be written as a double apostrophe in the HIKEY parameter. 


3. For each PACK parameter specified, there must be a corresponding 
HIKEY keyfield parameter for that pack. 


4. The HIKEY fields must be equal in length and must be specified in 
ascending order. 


5. |The maximum length of a HIKEY field is 29 characters. 
6. The HIKEY fields must be the same length as the keys on file. 


Packed HIKEY: The packed HIKEY parameter has all the OCL considerationis 
for HIKEY including the following restrictions: 


1. The first character following the HIKEY keyword and dash (HIKEY-) must 
be a P to indicate packed HIKEY. 


2. All characters in the packed HIKEY must be zoned numerics (0-9). 
3. The number of digits in each packed key must be the same. 


4. The number of zoned numeric characters per packed HIKEY must not ex- 
ceed 15, since the maximum packed key field length is 8. 


The following example shows a packed HIKEY parameter. In the example the 
key field length of MVFILE is 2. The HIKEYs are X’085F’, X'Q92F", and 
X'l08F’ for VOL1, VOL2, and VOL3 respectively. The first two packed keys 
required a leading zero to make the lengths consistent. 


1 4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 
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SPLIT CYLINDER FILES 


To use split cylinder file support, two parameters 
(SPLIT and LOCATION) are specified on the FILE 
statement. The SPLIT parameter specifies the size of 
each split cylinder file. It can also be used to specify 
the size of the group of split cylinder files you want 
on disk. The LOCATION parameter determines 
where on the 5445 disk each split cylinder file can be 
found. For further discussion of split cylinder file 
concepts, see /BM System/3 Disk Concepts and - 
Planning Guide, GC21-7571. 


Restrictions for Using Split Cylinder Files 
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1. Split cylinder files can only be direct or consecu- 
tive files and cannot be multivolume files. 


2. Split cylinder files can only be used with the 5445 
disk and not the 5444 disk. 


3. TRACKS or RECORDS parameters must not be 
specified. 


4. Labels must be unique. Therefore, the DATE 
parameter is used only to further qualify the split 
cylinder file. The file date is always the current 
system date for the job. 


5. A data block cannot overlap cylinders. This means 
that a data block cannot be longer than the space 
available on one cylinder of a split cylinder file. 


Creating the First Split Cylinder File in a Group 
The SPLIT parameter is required when creating the 
first split cylinder file in a group of split cylinder 
files. The LOCATION parameter is optional. 


The SPLIT parameter entries are: 


SPLIT-tracks per cylinder/number of cylinders 


The tracks per cylinder entry specifies the amount of 
space needed on each cylinder for the first split 
cylinder file. The cylinders entry shows the number 
of cylinders needed for the whole group of split 
cylinder files to be specified. 


The LOCATION parameter is optional since the 
system will find a starting location for the split file 
group. However, if you want to specify a particular 
cylinder, you may. 


The LOCATION entries are: 


LOCATION-cylinder number/track number 


The split cylinder file group must always start at 
track 0. Since O will always be the entry for track, 
you can omit it from the LOCATION parameter and 


LOCATION-cylinder number 


File Statement Example: First Split Cylinder File in a 


4 tracks per cylinder are needed 
to contain this file; 3 cylinders 


Must be unique name. File is temporary file. are needed to contain series of 


This file will reside on 
volume 1, drive 1. 


files. 


First file is to begin on 
cylinder 5, track 0. 
LOCATION is optional 
(see Coding Notes). 


Coding Notes: 


1. On the SPLIT parameter, tracks per cylinder, 
must be 1-19 and the number of cylinders speci- 
fied must be 1-199. 


2. On the LOCATION parameter, the cylinder num- 
ber must be 1-199 and the track number, if 
specified, must be 0. 


3. LOCATION-5 could be the location entry in this 
example since track 0, the required track entry, 
need not be specified. The LOCATION parameter 
itself is optional. 


Creating Other Split Cylinder Files 
To create the rest of the split cylinder files in a group 
both the SPLIT and LOCATION parameters are 
required. The SPLIT parameter must be in the 
format: 


SPLIT-tracks per cylinder 
This entry, tracks per cylinder, indicates the number 
of tracks needed on each cylinder for the file 
specified. 
The LOCATION parameter must be the filename of 
either the first split cylinder file in the group or any 
other split cylinder file in the group that was created 


ina previous job. 


LOCATION-filename 


File Statement Example: Other Split Cylinder Files 


Must be unique name. 





This file will reside 
on volume 1, drive 1. 


Coding Notes: 


1. On the SPLIT parameter, tracks per cylinder must 
be 1-19. 


2. On the LOCATION parameter, the filename must 
be the name of a temporary or permanent split 
cylinder file in the same group. 


Accessing Existing Split Cylinder Files 


To access existing split cylinder files, the SPLIT and 
LOCATION parameters are not required. Their use 
would only be needed to further qualify the file 
being accessed. 


Loading to Existing Split Cylinder Files 


To load to existing split cylinder files, the SPLIT 
parameter is required and the LOCATION may be 
required or optional. The SPLIT parameter specified 
for loading must agree with the SPLIT parameter of 
the existing split cylinder file. If the format of the 
SPLIT parameter is tracks per cylinder/cylinders, the 
LOCATION parameter is required and must match 
the cylinder number/track number of the existing 
split cylinder file. If the format of the SPLIT para- 
meter is tracks per cylinder, the LOCATION para- 
meter is optional. 


Scratch Split Cylinder Files 


Split cylinder files may be created as temporary or 
permanent files and in subsequent jobs made scratch 
files. However, the scratch files remain on the 5445 
disk only until the area is needed for the allocation 
of a new file. Then, the scratch split cylinder file is 
deleted. If you have scratched split cylinder files 
and you want to make sure they are not deleted, you 
may reactivate them to temporary files by using a 
RETAIN-A on the FILE statement. 


4 tracks per cylinder are needed for this 
file. 4 tracks per cylinder on 3 cylinders 
(specified on first split cylinder file) means 
that File B has 12 tracks allocated to it. 


File is a temporary file. Filename of a split 


cylinder file already 
specified. 
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AUTOMATIC FILE ALLOCATION 


You can allocate disk space for a file by determining 
the size of the file and the location of an available 
number of tracks that can contain that file. (If you 
have planned the location of your files, you know 
where files are located and the tracks that are 
available for further allocation. The Disk File 
Layout Chart, GX21-9108, is available to docu- 
ment your file locations.) After you have deter- 
mined where to place your file, you can code the 
LOCATION parameter of the FILE statement to 
tell disk system management on which track the 
file is to begin. Figure 21, part A, is asample 

FILE statement containing a LOCATION para- 
meter to tell disk system management that 

FILEA is to be located on disk VOL1 beginning 

on track 10. 


If, as in Figure 21, part B, no LOCATION para- 
meter is coded, FILEA is located on the disk pack 
automatically for you. The process used by disk 
system management to allocate file space for you 
is known as automatic file allocation. 


COMPILING AND STORING A SOURCE 
PROGRAM IN AN OBJECT LIBRARY 
The COMPILE OCL statement tells disk system 
management to: 


1. Compile a source program from a source 
| library and store the object program in an ob- 
ject library, or 


2. Compile a source program from cards and store 
the object in an object library. 


@® 


Figure 21. File Statement and Use of the LOCATION Parameter 
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The format of the COMPILE statement looks like 
this: 


R2 
F2 


ie R1 
// COMPILE ae f OBJECT— 5 : 
7 
The SOURCE keyword parameter is used if the 
source program is located in asource library. You 
must supply the same name given to the source 
program when it was stored in the library by the 
Library Maintenance program. The UNIT para- 
meter must be used with the SOURCE parameter 
to identify the disk location of the source program 
to be compiled. 


If the SOURCE keyword parameter is not used, 
the source program is assumed to be on cards 
following the RUN statement in the job stream. 


The OBJECT keyword parameter tells the system 
where the disk which will contain the object 
program is located. If the source program is on 
cards, the OBJECT keyword parameter is the only 
parameter which can be specified. If the OBJECT 
keyword parameter is omitted in either case, the 
object program is placed on the same disk pack as 
the compiler. The name assigned to the object pro- 
gram in the object library is the name you assigned 
in the Program Identification (columns *75-80) 

on the RPG II Control Card Sheet. If you did 

not assign a name in these columns, RPGOB4 is 
assumed. 
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Sample Statements 
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This sample job stream tells the system that the 
source program named SALES is located on a 
fixed disk on drive one (F1). The OBJECT-R1 
keyword parameter tells the system to place the 
object program on a removable disk on drive one 
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This sample job stream compiles a source program LOADING PROGRAMS IN A DPE ENVIRON- 
on cards and stores it in an object library on R1. MENT 
If the OBJECT parameter was not coded, the pro- 
gram would be compiled and placed into the A program can be loaded into either program level 
same object library as the compiler (F1). first. You tell the supervisor which system input 
device contains the job streams for the programs 
by selecting the device on the Dual Program Control 
Switch. (Refer to the /BM System/3 Disk System 
Operator’s Guide, GC21-7508 for further operating 
procedures.) When preparing your job streams, 
you should be aware of the following OCL consider- 
ations: 

DATE statement The DATE statement you use as an IPL statement to set the system date must be 
supplied with the first program loaded in one program level. The DATE statement 
must precede the set of statements for the first program. In the device associated 
with the other program level, a DATE statement must not precede the sets of 
statements for the programs being run in that level. 

A DATE statement that temporarily changes the system date can be used within 
the set of OCL statements for programs in either program level. This DATE 
statement applies only to the program for which it is used. 

LOG statement LOG statements can be placed anywhere among the statements in either job 


stream. There are, however, certain restrictions on their use. 
— Only LOG statements for program level 1 can tell the system to use a dif- 
ferent logging device. Only ON or OFF can be specified in program level 2. 


The device used for level 1 is also used for level 2. 
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OCL CONSIDERATIONS FOR LOADING PROGRAMS IN A DPF ENVIRONMENT (continued) 


— LOG must be on for both program levels before logging can occur. Ifa 
LOG statement for either program level stops the logging function, logging 
is stopped for both levels. The program level that turned the logging device 
off must turn it back on before logging can resume. If both levels specify 
OFF, then both program levels must turn the logging device back on before 
logging can resume. 





— When the printer is the logging device, OCL statements and message codes 
are not printed if the program in either level uses the printer as an output 
device. 


The following example shows sample LOG statements in a job stream: 
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Note: The first LOG statement indicates that the printer is used as the logging 
device while program PROG1 is being run. OCL statements and error messages 
are not printed for program PROG2 because of the second LOG statement. The 
third LOG statement causes the logging device to be used again. 


NOHALT statement The NOHALT statement is ignored for program level 2. The program in this 
level always stops after each job. 


HALT statement The HALT statement is ignored by program level 2. 


IMAGE statement The IMAGE statement is invalid and the job cannot be run, if the other level has 
the printer allocated to it. 


FORMS statement The FORMS statement is invalid and the job cannot be run, if the other level has 
the printer allocated to it. 


LOAD statement The LOAD™ statement cannot be used in program level 2. 
PARTITION statement The PARTITION statement is used only in DPF. 


The PARTITION statement is used to guarantee a minimum size to level 2 for a 
subsequent program in that level. 
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OCL CONSIDERATIONS FOR LOADING PROGRAMS IN A DPF ENVIRONMENT (continued) 


De er cc ee SO na a ee Ne Se eee er a ee en ESTES 


Supervisor 


Program Level 1 


Unused Area 


Storage needed for 
Program Level 2 





Supervisor 


Program Level 1 


Unused Area 


Program Level 2 
(a minimum of 5K bytes 
of storage is reserved) 


Without a PARTITION Statement With a PARTITION Statement 

If level 1 is not using the storage and a lf a PARTITION statement is used, the 
program is loaded into level 2, it is assigned assigned storage can only be used by the 
the number of bytes requested by program program in level 2. It is reserved. Even 
attributes. When the program in level 2 when the program in level 2 comes to 
comes to end of job, the storage for level 2 is end of job that storage is reserved for 
no longer reserved and level 1 can use it. future programs in level 2. 


If you do not use a PARTITION statement and, therefore, do not indicate the 
minimum size of program level 2, the system automatically assigns, during 
execution, the storage needed to level 2. You cannot submit a PARTITION 
statement in program level 2 or when program level 2 is processing. Ina 
procedure the PARTITION statement must follow the LOAD statement and 
precede the RUN statement. 


The format of the PARTITION statement is: 

// PARTITION size 

You must state the minimum number of bytes of storage you want to save for 
program level 2. The number must be equal to or greater than 5120. The 


amount of storage you specify is rounded to the next highest .25K by the 
supervisor, if it is not a multiple of .25K. 
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All programs require 5K bytes of storage for initia- 
tion and termination even though a program may 
occupy less than 5K. System programs use this 
storage for performing system functions just prior 
to loading the user’s object program (initiation) and 
again immediately following the end of object pro- 
gram execution (termination). 


This 5K requirement also affects DPF. For inde- 
pendent initiation and termination of a program in 
DPF, at least 5K bytes of storage must be available 
for each program level, regardless of the size of the 
program to be executed. If a program needs less 
than 5K while another program requires the remain- 
ing storage which is 5K or larger, the smaller pro- 
gram must be initiated first so that the storage re- 
quired by the system for initiation will be available. 
The system can then use all the storage not re- 
quired by the smaller program for the larger program. 
However, the smaller program must wait for termin- 
ation of the larger program, so that 5K is available 
for the smaller program‘s termination. 


Ina12K DPF system only limited independent 
initiation and termination is allowed. With a 4K 
minimum size requirement for the supervisor only 
8K is available for user programs. Independent pro- 
gram initiation and termination for each program 

is possible if each program being run occupies 3K 

or less of storage. The remaining 2K of storage is 
used alternately by either program to satisfy the 

5K system requirement. If one program needs more 
than 3K, the smaller program must be initiated first 
and can have a maximum executing size of 3K. The 
larger program is then initiated and can occupy the 


_ remaining storage. The larger program level must 


be terminated before the smaller program level. 


Program 
Level 2 


Sample Job Streams 


Suppose you had four jobs to be run requiring the 
1/O shown in Figure 22. Jobs 1 and 2 and Jobs 

3 and 4 can be run together, because they do not 
require the same |/O devices. If Job 2 finishes 
before Job 1, you could run Job 4 because Jobs 1 
and 4 do not require the same devices. If, on the 
other hand, Job 1 finishes first, Job 3 could not 
be run with Job 2, because both jobs require the 
printer for output. 


Figure 23 shows the job streams required to load 
the four jobs. Assume the system has the mini- 
mum system configuration plus the 5471 Printer- 
keyboard and dual drives. The Dual Program 
Switch indicates from what device OCL statements 
are read. MFCU is always hopper 1, and at sys- 
tem generation time P-KB was assigned to the 
5471 Printer-keyboard. 


JOB1 JOB3 
An inquiry A stock status report 
program that: that: 

Program @ Reads printer- e@ Reads disk. 

Level 1 key board. 


e Prints. 
Reads disk. 


Writes printer- 
key board. 


JOB2 JOB4 
An inventory A detail punching 
updating program job that: 
that: 
Reads cards. e Reads cards. 


Reads disk. e Punches cards. 


Updates disk. 


Prints. 





Figure 22. Job Scheduling for DPF 
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Figure 23. Sample Job Stream 


RESTARTING A CHECKPOINTED PROGRAM 
Checkpoint is a means of recording the status of a 
problem program at desired intervals. Restart is a 
means of resuming the execution of the program 
from the last checkpoint rather than from the begin- 
ning, if processing is terminated for any reason (with 
the exception of a controlled cancel) before the 
normal end of job. For example, a power failure may 
occur and cause an interruption. 


Programming Considerations 
e@ Checkpoint/Restart enables the user to restart a 
checkpointed program from the last checkpoint 
taken provided no intervening program executions 
have taken place. 


e Sufficient disk space is allocated by Library 
Maintenance on a checkpoint system pack (5444) 
at System Generation or Library Maintenance 
time to allow one active checkpoint. Ona system 
with Checkpoint and Inquiry, the disk space will 
be used by both functions. The checkpoint pro- 
gram cannot be an inquiry evoking program since 
the disk space is used by both facilities. 


@ Checkpoint requests are accepted only in program 
level 1. Checkpointed programs must be restarted 
in program level 1. If program level 2 is used to 
execute a checkpointed program, the checkpoint 
requests are ignored. 


Restart Procedure 


To restart the interrupted job at the last checkpoint 
submit the following OCL statements: 


// LOAD $$RSTR, unit 
// RUN 


The unit in this example is a pack with module 
$$RSTR. If an IPL occurs it must be from the pack 
other than the pack that contains the active check- 
point is allowed, but programs executed under con- 
trol of the new IPL system cannot access disk vol- 
umes used in the active checkpointed program or 
modify the object library where the checkpointed 
program resides. 


Other OCL statements that may be required are the 
PARTITION and LOG statements. 


OCL CONSIDERATIONS FOR USING CHECKPOINT/RESTART 





PARTITION statement A PARTITION statement may be required at restart to guarantee 
the required minimum level 2 size. See Loading Programs in a 
DPF Environment for further information on the PARTITION 


statement. 


_ A halt will occur if restart is attempted without sufficient 
space in program level 1. An immediate cancel is taken. 


— Checkpoints can only be taken in program level 1. To 
restart a checkpointed program, program level 1 must be 
used. If level 2 is used to execute a checkpointed program, 
the checkpoint requests are ignored. 


_ Restart requires 5K of storage; therefore level 2 must be 
such that level 1 has 5K. 


LOG statement A LOG statement may be required at restart to reestablish the 
logging device. See LOG Statement under Statement Descrip- 
tions and Loading Programs in a DPF Environment for further 
information on the LOG statement. 
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2. Two programs are being compiled: one that 


STATEMENT EXAMPLES 


transfers the customer file from cards to disk; 


This section shows an example that illustrates 
some of the uses of the OCL statements. The 


and one that transfers the inventory file from 
cards to disk. The OCL statements for the 


example consists of a series of jobs. The jobs in- 


RPG I! Compiler are in a procedure called RPG. 


A CALL statement, therefore, is used to instruct 


volve three files: customer, inventory, and transac- 
tion. The customer file contains such information 
as Customer names and addresses, total amounts 


of charges over a period, and total amounts of 


the system to read the procedure each time the 


compiler is to be run. The procedure is located 


on the fixed disk on drive one. 


payments over the same period. The inventory 


file contains such information as item numbers 
and descriptions, prices of the items, and the 


The RPG II source programs following each set 


of CALL and RUN statements are input to the 


numbers of items in stock. The transaction file 


compiler. Like all input, each source program 


must be followed by a /* card. However, to 


contains such information as orders for items, re- 
fund orders for items returned, and customer 


be safe, /& statements were used before each 


payments. The transaction file is used to update 


the inventory and customer files. 


LOAD and CALL statement in case the /* cards 


had not been placed after the source programs. 


3. In the next two jobs, the object programs just 


The OCL statements for the jobs are shown in 


Example 


compiled will be run. The comment and PAUSE 
statements are to remind the operator to place 


the object- 


Figure 24. Sets of statements in the figure are 


numbered. The explanations corresponding to 


program cards after the correspond- 


those numbers are given in the following section. 


ing sets of OCL statements. 


Explanation 


4. The system stops, temporarily, after each of the 


1. The DATE statement supplies the system date, 


preceding compilations, giving the operator 
time to ensure that the compilations were 


successful, 


lt must be read by the system before 


10/20/71. 
the first LOAD or CALL statement after initial 


program load. 


However, there is no need for the 


system to stop after the next few jobs. A 


NOHALT statement, therefore, is given at 


this point. 
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The cards containing the records to be trans- 
ferred to disk are being read from the same 


device as the OCL statements. 


5. The two object programs previously compiled 


are being run to transfer the customer and in- 


ventory files, respectively, to disk. 


In each case, the 


cards must immediately follow the program 


the programs had been 


if 
loaded from disk, the cards would have fol- 


lowed the RUN statement in each case. 


that reads them. 


a disk file is being created. Both 


a 


in each case 


files are permanent. The name that will iden- 
tify the customer file on disk is CUST; the 


inventory-file name is INV. The date for both 


files will be 10/20/71. 
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The sort specification cards following the 


6. A program that transfers a transaction file, 


RUN statement are input to the Disk Sort 
program. Like all input, the last card must be 


a /* card. 


TRANS, from cards to disk is being compiled. 


Because the resulting object-program cards are 


to be placed with the next set of OCL state- 
ments, comment and PAUSE statements are 


used to remind the operator. 


8. The program that updates the inventory file 


with information from the transaction file is 


compiled. Comment and PAUSE statements 


again remind the operator to include the ob- 
ject-program cards with the next set of OCL 


statements. 


7. The transaction file is first transferred from 


cards to disk, and then sorted on disk by the 


Disk Sort program. A HALT statement pre- 
cedes the sort job so that the system will stop 
after the sort job. This gives the operator a 


9. The program just compiled is run to update 


chance to check any diagnostic messages to en- 


sure that the sort was successful. 


the inventory file. This program can also print 
the transaction-file records. The printed out- 
put file, however, is conditioned by external 
indicator U1. Because the SWITCH state- 


The HALT 


statement remains in effect for the remaining 


jobs. 


ment sets U1 on, the transaction records will 


The INPUT and OUTPUT files are the same. 


If the SWITCH statement had not 


been used, the indicator would have remained 


be printed. 


The transaction file is read, sorted, and then 


written back on the same area of disk. 


off and the records would not have been printed 


(external indicators are all initialized off at 


IPL time). 
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AE ERAN RT TE TIT TE TE TE 
INTRODUCTION TO DISK UTILITY PROGRAMS 
i STOO ES 


The Disk System includes a group of disk resident utility programs. These pro- 
grams do a variety of necessary jobs, from preparing disks for use to maintaining 
the system libraries. The disk utility programs are: 


@ Disk Initialization 


® Alternate Track Assignment 


@ Alternate Track Rebuild 

@ File and Volume Label Display 

@ File Delete 

® Disk Copy/Dump 

@ Library Maintenance 

@ 5445 Data Interchange Utility 

The information for every program is divided into five sections: 
@ Control statement summary 

@ Parameter summary 

@ Parameter descriptions 

@ OCL (operation control language) considerations 


@ Examples 


TO WRITE UTILITY CONTROL STATEMENTS 
To write utility control statements (see Contro/ Statements), use the sections in the 
following way: 


1. Look at the Control Statement Summary to determine which control statements 
and parameters apply to the program uses you are interested in. (The program 


uses are stated in the text preceding the Contro/ Statement Summary.) 


2. If you need information about the contents or meanings of particular parameters, 
look at the Parameter Summary. 


3. If you need more detailed information about parameters, read the Parameter 
Descriptions following the Parameter Summary. 


4. If you need examples of specific jobs, look at the Example section. All examples 
show the OCL statements and utility programs for specific jobs. 


5. To find information concerning the use of utility programs on disk refer to 
OCL Considerations for the necessary OCL statements. 
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Control Statements | 
All of the programs require utility control statements, which you must supply. 
These statements give the program information concerning the output you want 
the program to produce or the way in which you want the program to perform 
its function. The programs read these statements from the system input device. 
They must be the first input read by the programs. 


Every control statement is made up of an /dentifier and parameters. The identifier 
is a word that identifies the control statement. It is always the first word of the 
statement. Parameters are information you are supplying to the program. Every 
parameter consists of a keyword, which identifies the parameter, followed by the 
information you are supplying. 


Coding Rules 
The rules for constructing control statements are as follows: 


1. Statement identifier. // followed by a blank should precede the statement identi- 
fier. Do not use blanks within the identifier. 


2. Blanks. Use one or more blanks between the identifier and the first parameter. 
Do not use them anywhere else in the statement. 


3. Statement parameters. Parameters can be in any order. Use a comma to separate 
one parameter from another. Use a hyphen (-) within each parameter to separate 
the keyword from the information you supply. Do not use blanks within or be- 
tween parameters. 


4. Statement parameters containing a list of data after the keyword. Use apostrophes 
(‘) to enclose the items in the list. Use a comma to separate one item from another. 
For example: UNIT-‘R1,R2’ (R1 and R2 are the items in the list). 

5. Statement length. Control statements must not exceed 96 characters. 

The following is an example of a control statement: 


// COPY FROM-F1,LIBRARY -O,NAME-SYSTEM, TO-R1 


The statement identifier is COPY. The parameter keywords are FROM, LIBRARY, 
NAME, and TO. The information you supply is F1, O, System, and R1. 


End Control Statement 
The END statement is a special control statement that indicates the end of control 


statements. It consists of // END starting in position 1 and must always be the last 
control statement for the programs. 


SPECIAL MEANING OF CAPITAL LETTERS, NUMBERS, AND SPECIAL 
CHARACTERS 


Capitalized words and letters, numbers, and special characters have special meanings 
in OCL and utility control statement descriptions. 


In utility control statements, capitalized words and letters must be written as they 
appear in the statement description. Sometimes numbers appear with the capitalized 
information. These numbers must also be written as shown. 


Words or letters that are not capitalized mean you must use a value that applies to 
the job you are doing. The values that can be used are listed in the parameter sum- 
maries for the control statements. 

Braces ( { \ ) sometimes appear in parameters shown in control statement sum- 
maries and parameter summaries. They are not part of the parameters. They simply 
indicate that you must choose one of several values to complete the parameter. For 
example, RETAIN- Pt means you can use either RETAIN-T or RETAIN-P. 


Introduction to Disk Utility Programs 73 


74 


DISK INITIALIZATION PROGRAM 
RAE EAE 


All disks must be initialized before use. Disks that have been initialized need not 
be re-initialized unless you want to erase their contents and rename them. 


The Disk Initialization program prepares disks for use. It does this by: 


@ Writing track and sector addresses on the disk. 


Checking for defective tracks, a process called surface analysis. 


® Assigning alternate tracks to any defective tracks found. 


Writing a name on each disk to identify the disk. 


Formatting the volume table of contents. 


The process is called initialization. The program can initialize up to five disks 
during the same program run. 


There are three types of initialization: primary, secondary, and clear. Primary is 
used to initialize any disk to disk drive capacity. Secondary is used only when 
using the 5444 disk and only when the drive capacity of your system is increased 
and you have programs and data on your disks that you want to keep. Clear is 
used to unconditionally initialize a disk. 


CAUTION 


Clear will destroy any files or libraries that 
were previously on disk. 


The control statements you supply for the Disk Initialization program depend 
on the type of initialization and the number of disks you are initializing. 
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CONTROL STATEMENT SUMMARY 


Type of Initialization Contro! Statements (1) 


Primary (2). 


HALF 
New Disks /] UIN TYPE-PRIMARY(),UNIT- J code VeRIEY-number CAP. ; 
\ ‘codes’ f FULL 


// VOL PACK-name,! D-characters, NAME 360-characters 


//END 


Disk already in // UIN TYPE-PRIMARY,UNIT- J nee 4 VERIFY-number,— nase. { 
use (reinitialize) \ codes 


// VOL PACK-name,|D-characters, NAME 360-characters 


// END 


Secondary 4): 
code 


Disk already in // UIN ay CEE CONDARUNE ; \ WERIFY-number 
\ ‘codes f 
use 

//END 


Clear (5): ; 


HALF 
// UIN Tyee MeNR UNE! ae \ veRIFY-number.car- : \ 


\ ‘codes’ FULL 


// VOL PACK-name,| D-characters ,NAME360-characters @ 


// END 


(1) Control statements are required in the order they are listed: UIN, VOL, END or UIN, END. 
For primary initialization, one VOL statement is required for each disk listed in the UNIT parameter of the 
UIN statement. The PACK parameter in the first VOL statement applies to the first disk listed in the UNIT 
parameter. The PACK parameter in the second VOL statement applies to the second disk listed in the UNIT 
parameter, and so on. 

(3) If the TYPE parameter is omitted, TYPE-PRIMARY is assumed. 


G4) VOL statements are not required for secondary initialization because the disks are already named. 


G) If the TYPE parameter CLEAR is selected, ERASE-YES is assumed. 


CAP-FULL should not be used on a half capacity system and can only be used on the 5444 disk. 





Ga) NAME360 can only be used on the 5445 disk, 
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PARAMETER SUMMARY 


UIN (Input Definition) Statement 


TYPE-PRIMARY 


TYPE-SECONDARY 


TYPE-CLEAR 


UNIT-code 
UNIT-‘code,code’ 


UNIT-’code,code,code’ 


UNIT-‘code,code,code,code’ 


UNIT-‘code,code,code,code, 
code’ 


VERIFY-number 


ERASE-YES 


ERASE-NO 


CAP-HALF qd) 


CAP-FULL (1) 


VOL (Volume) Statement 


PACK-name 


!OD-characters 


NAME360-characters 





Primary initialization. Initialize the disks to the capacity of the drives on which they 
are mounted. Tracks already initialized are re-initialized. The program will not 
initialize disks containing libraries, temporary data files, or permanent data files. 


Secondary initialization (5444 disk only). Applies only to disks that were 
initialized on drives of less capacity than the drives you are now using. It means 
initialize the uninitialized portions of the disks to the capacity of the drives on 
which the disks are mounted. Tracks already initialized are not disturbed. 


Clear initialization. Initialize the disks to the capacity of the drives on which they 
are mounted. Tracks already initialized are re-initialized. Active files and library 
checking is bypassed and any data on the tracks is destroyed. 


Disk location (one disk). Possible 
codes: 

Disk location (two disks). R1,F1, 
R2, F2 

Disk location (three disks). D1, D2 


Disk location (four disks). 


Disk location (five disks). 


Do surface analysis the number of times indicated (number can be 1-255). VERIFY-1 
is assumed if you omit the parameter. 


Retest defective tracks. Primary initialization only. ERASE-NO is 
assumed if you omit the parameter. 


Do not retest defective tracks. 


Initialize a disk to half capacity even if on a full capacity drive (5444 disk only). 


Initialize a disk to full capacity (5444 disk only). 


Disk name. Can contain any of the standard System/3 characters except apostrophes, 
leading or embedded blanks, and embedded commas Its length must not exceed 
six characters. 


Additional identification. Can contain any of the standard System/3 characters 
except apostrophes, leading or embedded blanks, and embedded ora. Its 
length must not exceed ten characters. If you omit this parameter no additional 
identification is written on the disk. 


Additional identification for 5445 disk. The name will be placed in the 
System/360 format 1 DSCB. Can contain any of the standard System/3 
characters except apostrophes, leading or embedded blanks, and embedded 
commas . Its length must not exceed 44 characters. If you omit this 
parameter the program defaults to SYSTEM/3.DATA. 


(1) The CAP keyword forces ERASE-YES. Pack is initialized to capacity of the drive if this keyword is omitted. 


(2) This is due to their delimiter function. 
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PARAMETER DESCRIPTIONS 


TYPE Parameter (UIN) 


The TYPE parameter indicates the type of initializa- 
tion you want the program to do: primary, secon- 
dary, or clear. The type of initialization and the ca- 
pacity of the disk drives on which the disks are 
mounted determine which disk tracks will be 
initialized. 


Disk Drive Capacity 


Disk drives of different data-storage capacities are 
available for the System/3 Model 10 Disk System. 
The difference is the number of tracks the drives can 
use: the larger the drive capacity, the more tracks 
the drive can use. However, you must initialize the 
disk tracks before using them. 


Primary Initialization 


Primary initialization applies to new disks, or disks 
you have used but want to initialize again. The pro- 
gram initializes all tracks corresponding to the 
capacity of the drives on which the disks are 
mounted. Tracks that were previously initialized 
are initialized again. Any data on the tracks is 
destroyed. 


You can use primary initialization on a disk as often 
as you want. However, the program will not 
initialize disks containing libraries, temporary 

data files, or permanent data files. You must de- 
lete the files using File Delete and the libraries 

using the allocate function of Library Maintenance. 


Secondary Initialization (5444 Disk Only) 


Secondary initialization applies to disks that were 
initialized on drives of less capacity than the drives 
you are now using. When you increase the capacity 
of your drives, more tracks on your disks be- 

come available for use. You must initialize the 
additional tracks. Use secondary initialization 

if you do not want information destroyed on 
tracks already in use. The program initializes the 
additional tracks only. Tracks already in use are 
not disturbed. 


The program will not do secondary initialization 
on new disks or disks that have already been 
initialized to the capacity of the drives on which 
they are mounted. 


Clear Initialization 


Clear initialization applies to new disks but only to 
those which cannot be used because of invalid 
pack labels or some other unrecoverable disk 

error. All tracks corresponding to the capacity 

of the drives on which the disks are mounted are 
initialized. Tracks that were previously initialized 
are re-initialized. 


Warning: All libraries, temporary data files, or 
permanent data files are completely wiped out. 


UNIT Parameter (UIN) 


The UNIT parameter (UNIT-code) tells the location 
of the disks you want to initialize. The program 
can initialize up to five disks during one program 
run. 


The form of the UNIT parameter depends on the 
number of disks you are initializing: 


1. For one disk, use UNIT-code. 

2. For two disks, use UNIT-‘code,code’. 

3. For three disks, use UNIT-‘code,code,code’. 

4. For four disks, use UNIT-’code,code,code,code’. 
5 


. For five disks, use UNIT-‘code,code,code,code, 
code’. 


The codes indicate the locations of the disks: 


Code Meaning 

R1 Removable disk on 
5444 drive one 

F1 Fixed disk on 5444 
drive one 

R2 Removable disk on 
5444 drive two 

F2 Fixed disk on 5444 
drive two 

D1 Removable disk on 
5445 drive one 

D2 Removable disk on 
5445 drive two 


For primary initialization, the order of codes must 
correspond to the order of VOL control state- 
ments. If, for example, you had used the parameter 
UNIT-’R1,R2’, the first VOL statement applies 

to the removable disk on drive one and the second 
VOL statement to the removable disk on drive 

two. (No VOL statements are required for second- 
ary initialization. The disk is already named.) 


You cannot initialize the pack from which you 
loaded the Disk Initialization program or the 
system pack. 


VERIFY Parameter (UIN) 


The VERIFY parameter (VERIFY-number) con- 
cerns surface analysis. It enables you to indicate 
the number of times you want the program to do 
surface analysis before judging whether or not 
tracks are defective. The number can be from 
1-255. The greater the number specified in the 
VERIFY parameter the longer it takes to initialize 
the disk. 


Surface Analysis 


Surface analysis is a procedure for testing the con- 
dition of tracks. It consists of writing test data 
on tracks, then reading the data to ensure it was 
recorded properly. 


In judging whether or not tracks are defective, 

the program does surface analysis the number of 
times you specify in the VERIFY parameter. If 
you omit the VERIFY parameter, surface analysis 

is done once. Tracks that cause reading or 

writing errors any time during surface analysis 

are considered defective. Defective tracks can be 
assigned alternates. The 5444 has six alternate 
tracks available; the 5445 has 60. If the program 
finds more than 6 or 60 defective tracks respectively 
it considers the disk unusable and stops initializing it. 


The program also considers the disk unusable if either 
track 0 or 1 is defective. Tracks 0 and 1 are used only 
by the system and cannot have alternates assigned to 
them. For the 5445 the program also considers the 
disk unusable if any tracks in cylinder O are defective. 


Alternate Track Assignment 


Alternate track assignment is the process of assigning 
an alternate track to a defective track. If the Disk 
Initialization program finds a defective track 

during surface analysis, it assigns an alternate track 

to the defective track. The alternate is, in effect, 

a substitute for the defective track. Any time a 
program attempts to use the defective track, it 

will automatically use the alternate instead. Each 
5444 disk has six alternate tracks (tracks 2-7). Each 
5445 disk has 60 alternate tracks (tracks 4000-4059). 


If tracks become defective after a disk is initialized, 
another program (see A/ternate Track Assignment 
Program) is used to assign alternate tracks. Disks 
need not be re-initialized to assign alternate tracks. 


ERASE Parameter (UIN) 


The ERASE parameter concerns alternate track 
assignment. It applies only to disks that have 
already been initialized and used, but which you 
are re-initializing using primary initialization. 


The condition of tracks on such disks has been 
tested at least once before (during the previous 
initialization) and tracks that were found to be 
defective during surface analysis were assigned 
alternates. The ERASE parameter, therefore, 
enables you to indicate whether you \want the 
program to (1) retest the tracks to which alternate 
tracks are already assigned, or (2) leave the alter- 
nate tracks assigned without retesting the tracks. 


The parameter ERASE-YES means to retest. If 
you tell the program to retest, it erases any 
existing alternate track assignments, and tests 
all tracks as though the disk were new. 


The parameter ERASE-NO means not to retest. 
If you tell the program not to retest, it tests only 
those tracks to which no alternate tracks are as- 
signed. Alternate tracks previously assigned re- 
main assigned. 


Defective tracks are not retested if the ERASE 
parameter is omitted. 


CAP Parameter (UIN) 


The CAP parameter (5444 disk only) determines pack 
size when the pack is initialized. The CAP-HALF 
parameter means to initialize the pack to half capacity 
even if it is on a full capacity drive. The CAP-FULL 
parameter means to initialize the pack to full capa- 
city. The use of the CAP keyword forces ERASE-YES. 
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PACK Parameter (VOL) 


The PACK parameter (PACK-name) applies to 
primary initialization only. During primary initiali- 
zation, the Disk Initialization program writes a 
name on each disk. It uses the name you supply 

in the corresponding PACK parameter. (One VOL 
control statement containing a PACK parameter 

is required for each disk.) 


The name can be any combination of standard 
System/3 characters except apostrophes, leading 
or embedded blanks, and embedded commas (due 
to their delimiter function). (See Appendix A for 
a list of standard System/3 characters.) Its length 
must not exceed six characters. The following are 
valid disk names: 0,F0001, 012, A1B9, ABC. 


In general, disk names are used for checking pur- 
poses. Before a program uses a disk, the disk 
name is compared with a name you supply 
(either in OCL statements or control statements 
required by the program). !f the names do not 
match, the program halts and prints a message. 

In this way, programs cannot use the wrong disks 
without the operator knowing about it. 


ID (Identification) Parameter (VOL) 


The 1D parameter (1D-characters) applies to primary 
initialization only. It enables you to include a max- 
imum of ten characters, in addition to the disk 
name, to further identify a disk. The characters 
can be any combination of standard System/3 
characters (Appendix A) except apostrophes, 
leading or embedded blanks, and embedded com- 
mas (due to their delimiter function). The informa- 
tion is strictly for your use. (It is not used for 
checking purposes by the system.) If you use 

the File and Volume Label Display program to 
print the disk name, it will also print the addition- 
al identification for you. 


NAME360 Parameter (VOL) 
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The NAME360 parameter (NAME360-name) is used 
to specify a filename for data interchange with 
System/360-System/370. System/360-System/370 
can use data on a System/3 disk pack by treating the 
pack like a file. System/3 gives a default filename of 
SYSTEM/3.DATA. The NAME360 parameter can be 
used if you would like to code a filename of your 
own. 


NAME360 can contain any of the standard System/3 
characters except apostrophes, leading or embedded 
blanks and embedded commas. Its length must not 
exceed 44 characters. 


OCL CONSIDERATIONS 


The following OCL statements are needed to load 
the Disk Initialization program. 


// LOAD $INIT, code 
// RUN 


The code you supply depends on the location of 
the disk containing the Disk Initialization program. 
The codes are as follows: 


Code Meaning 

R1 Removable disk on 
drive one 

F 1 Fixed disk on drive 

one | 

R2 Removable disk on 
drive two 

F2 Fixed disk on drive 
two 

EXAMPLES 


Primary Initialization of Two Disks 
Figures 25 and 26 are examples of the OCL state- 
ments and utility control statements needed for 
the primary initialization of two disks. 





Explanation: 


@ Disk Initialization program is loaded from the fixed disk on 
drive one. 


Figure 25. OCL Load Sequence for Disk Initialization 





Explanation: 


@® The two disks on drive two are being initialized (UNIT-'F2,R2’ 
in UIN statement). 


@ The fixed disk (F2) will be given the name 2222 (PACK-2222 
in first VOL statement). 


@ The removable disk (R2) will be given the name PAYROL 
(PACK-PAY ROL in second VOL statement). Additional 
identifying information, 010270, will be written on the removable 
disk (1D-010270). 


Figure 26. Utility Control Statements for Primary Initialization 
of Two Disks 


MESSAGES FOR DISK INITIALIZATION 


NMiessage 


INITIALIZATION This message is printed when initialization of a disk is 
ON XX COMPLETE complete. XX indicates the unit (R1, R2, F1, F2, D1, 
or D2) on which the initialization is complete. 


INITIALIZATION ON XX This message is printed when initialization of a disk 
TERMINATED must be terminated for one of the following reasons: 
Cylinder zero is defective. 


More than 6 5444 tracks or 60 5445 tracks 
are defective. 


Possible disk hardware error exists. 


The program attempted to initialize the disk 
ten times without success. 


After this message is printed, halt 33 will occur. XX 
indicates the unit (R1, R2, F1, F2, D1, or D2) on 
which the initialization is terminated. 


** ALTERNATE TRACKS These two messages are printed when a primary track 
ASSIGNED** is defective and an alternate track is assigned to it. 
PRIMARY TRACK XXX XXX indicates the tracks involved. 


ALTERNATE TRACK XXX 


UNRECOVERABLE ERROR; This message is printed when the Disk Initialization 
RE-INITIALIZING PACK program determines that the disk has not been 
initialized properly. The program will again attempt 
to initialize the disk correctly with ERASE-YES forced. 
The maximum number of times that the program will 
attempt to initialize a disk is ten. After that number of 
times, halt 33 occurs. 
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AANA AS SINE EE 
ALTERNATE TRACK ASSIGNMENT PROGRAM 


The Alternate Track Assignment program assigns alternate tracks to disk tracks that 
become defective after they are initialized. An tlternate track is a track that can be 
assigned to replace another track. When the program assigns an alternate, it transfers 
the contents of the defective track to the alternate. The 5444 has 6 alternate tracks, 
the 5445 has 60. An alternate track can replace any track except 0 and 1 on the 5444 


or 0-19 of cylinder 0 on the 5445. 


The program has three uses. The control statements you must supply depend on 


the program use. 


The program uses and the situations to which they apply are as follows: 


Program Use 


Conditional assignment. 
Program tests the condition 
of a track and assigns an 
alternate to it if it is defec- 
tive. (This is the normal 
use.) 


Unconditional Assignment (1) 
Program assumes the track 

is defective and assigns 

an alternate to it without 
testing its condition. 


Cancel prior assignment. (1) 
Program cancels an 

alternate track assignment 
to free the alternate for 

use with another track. 





Situation 


Any time a disk track causes reading or writing 
errors during a job, the system halts with a code 
indicating that a disk error has occurred. You 
would now run the Alternate Track Assignment 
program to do conditional assignment. 


You have used the Alternate Track Assignment 
program to do conditional assignment. The 

test on the track indicated that the track was not 
defective (an alternate, therefore, was not 


~ assigned). But the track still causes reading or 


writing errors, and you want to assign an 
alternate to it. 


A defective track was found, but all alternates 
are in use. You want to free an alternate so you 
can recover the data from the defective track. 
Before freeing the alternate, however, you would 
normally copy (to another disk) the file or 
library entry that uses the alternate. This saves 
the data that is already on the alternate. 


(1) Whenever you request an unconditional assignment or cancel prior assignment, any 
pending suspected defective tracks are checked (conditional assignment). 


- Alternate Track Assignment Program 83 


CONTROL STATEMENT SUMMARY 
Use Control Statements 


Conditional Assignment // act) pAcK-name,UNIT-code, VERIFY-number 
//END 


Unconditional Assignment // act@)pack-name,UNIT-code,ASSIGN- 


/1 END 


track 
‘tracks’ 


VERIFY-number2) 


Cancel Prior Assignment // act pack-name,UN!T-code,UNASSIGN- 


track 
// END | 


F AVERIFY-n umber(3) 
tracks 


@) For each use, the program requires the statements in the order they are listed: ALT, END. 
(2) There can be only 6 ALT statements per job. 


@) the VERIFY parameter applies to the automatic conditional assignment that follows the unconditional request. 
(See Program Use and Situation.) 


PARAMETER SUMMARY: ALT (ALTERNATE) STATEMENT 


PACK-name Name of the disk. 


UNIT-code Location of the disk. Possible 
codes are R1, F1, R2, F2, D1, D2. 


VERIF Y-number In testing the condition of a track, 
do surface analysis the number of 
times indicated (number can be 
1-255). If VERIFY parameter is 
omitted, do surface analysis once. 


Use track num- 
bers 8-205 or 
8-405 (for 5444) 
20-3999 (for 
5445) to identify 
tracks. Tracks 
0-1 for the 5444 
or 0-19 for the 
5445 are used by 
the system and 
cannot be assign- 
ed alternates. 


ASSIGN-track Assign an alter- 
nate (uncon- 
ditionally) to 
one track. 


ASSIGN-’track,track,...’ Assign one alter- 
nate (uncon- 
ditionally) to 
each track 
(maximum 
is six). 


UNASSIGN-track Cancel! one 
alternate track 
assignment. 


Use track num- 
bers 8-405 (for 
5444), or 


UNASSIGN-‘track,track,..... Cancel two or 20-3999 (for 
more alternate 5445) to which 


@ Before canceling an assignment, the program tests the con- 
dition of the track to which the alternate is assigned. The 
assignment is canceled if the test indicates that the track is 

track assian- alternates are s igs ; ; 

g eta not defective. If the test indicates that the track is defective, 
ments (maximum ce the program does not cancel the assignment unless the operator 
is six). tells it to do so. 
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PARAMETER DESCRIPTIONS 


PACK Parameter 


The PACK parameter (PACK-name) tells the pro- 
gram the name of the disk containing the defective 
tracks. This is the name written on the disk by the 
Disk Initialization program. (See Disk Initialization 
Program.) 


The Alternate Track Assignment program com- 
pares the name in the PACK parameter with the 
name on the disk to ensure they match. In this 
way, the program ensures that it is using the right 
disk. 


UNIT Parameter 


The UNIT parameter (UNIT-code) indicates the 
location of the disk containing defective tracks. 
Codes for the possible locations are as follows: 


Code Meaning 

R 1 Removable disk on 
5444 drive one 

F1 Fixed disk on 5444 
drive one 

R2 Removable disk on 
5444 drive two 

F2 Fixed disk on 5444 
drive two 

D1 Removable disk on 
5445 drive one 

D2 Removable disk on 
5445 drive two 


VERIFY Parameter 


The VERIFY parameter (VERIFY-number) con- — 
cerns conditional assignment. (See Program Use 
and Situation for unconditional and cancel prior 
assignments.) It enables you to indicate the num- 
ber of times you want the program to do surface 
analysis before judging whether or not the track 

is defective. The number can be from 1-255. If 
you omit the parameter, the program does surface 
analysis once. 


Conditional Assignment 


Conditional assignment consists of testing the 
condition of a track (surface analysis) and, if 

the track is defective, assigning an alternate track 
to replace it. It is the normal use of the Alternate 
Track Assignment program. 


Situation. Conditional assignment applies to tracks that 


cause reading or writing errors during a job. Any 
time a track causes such errors, the system does 
the following: 


1. Stops the program currently in operation. 


2. Writes the track address in a special area on the 
disk. 


3. The system then halts with a halt code indicat- 
ing a permanent disk 1/O error. You can then 
run the Alternate Track Assignment program. 


When you use the Alternate Track Assignment pro- 
gram to do conditional assignment, the program 
locates the tracks by using the addresses in the 
special area on disk. All disks, fixed and remova- 
ble, have such an area. The program will do 
conditional assignment for all tracks identified 

in the area (one at a time), as long as there are 
alternate tracks available for assignment. 


Surface Analysis. Surface analysis is a procedure the pro- 


gram uses to test the condition of tracks. It con- 
sists of writing test data on a track, then reading 
the data to ensure it was written properly. 


Before doing surface analysis, the Alternate Track 
Assignment program transfers any data from the 
track to an alternate track. This is the alternate 
that will be assigned if the track proves to be 
defective. 


In judging whether or not the track is defective, the 
program does surface analysis the number of times 


you specify in the VERIFY parameter. If you omit 
the parameter, the program does surface analysis 
once. If the track causes reading or writing errors 
any time during surface analysis, the program con- 
siders the track defective. 


Assignment of Alternate Tracks. If a track proves to be 


defective, the program assigns an alternate track. 
The alternate becomes, in effect, a substitute for 
the defective track. Any time a program attempts 
to use the defective track, it automatically uses 
the alternate instead. 


The 5444 has 6 alternate tracks; the 5445 disk has 


60. The program will not do conditional assign- 
ment if all alternate tracks are in use. 
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Incorrect Data. Ifa track is defective, some of the data 


transferred to the alternate track could be incorrect. 
Therefore, when reading data from the defective 
track, the program prints all track sectors con- 
taining data that caused reading errors. Characters 
that have no print symbol are printed as 2-digit 
hexadecimal numbers. 


The following is an example: 


ABCDE GH123 56... 
B A 
6 4 
Appendix A lists the characters in the standard 
character set and their corresponding hexadecimal 
numbers. 


To correct errors on the alternate track, use the Al- 
ternate Track Rebuild program. 


ASSIGN Parameter 


The ASSIGN parameter (ASSIGN-track) applies to 
unconditional assignment. It tells the program which 
tracks you want alternates assigned to. 


For 5444, you can assign alternates to any tracks 
except 0-7, which are for system use only. For 
5445 you can assign alternates to any tracks 
except 0-19 or 4000-4059; for system use only. 


The form of the ASSIGN parameter depends on the 
number of tracks you want to specify. For one 
track, use ASSIGN-track; for two tracks, use 
ASSIGN-’track,track’; and so on. You can specify 
up to six tracks. 


Use the track numbers 8-405 (for 5444) or 20-3999 
(for 5445) to identify the tracks. For example, the 

parameter ASSIGN-‘50,301,353’ causes the program 
to assign alternate tracks to tracks 50, 301, and 353. 


Unconditional Assignment 
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Unconditional assignment applies to tracks that 
occasionally cause read or write errors. Such 
tracks might not cause errors when tested by the 
Alternate Track Assignment program during con- 
ditional assignment. If they don‘t, the program 
will not assign alternate tracks to them. If you 
still want to assign alternates to these tracks, use 
unconditional assignment. In doing unconditional 
assignment, the program assigns alternates without 
first testing the condition of the tracks suspected 
of being defective. 


UNASSIGN Parameter 


The UNASSIGN parameter (UNASSIGN-track) 
applies to cancelling alternate track assignments. 

It identifies tracks for which you want the program 
to cancel assignments. 


You can cancel up to six assignments. The form of 
the UNASSIGN parameter depends on the number 
of assignments you want to cancel. For one assign- 
ment, use UNASSIGN-track; for two assignments, 
use UNASSIGN-’track, track‘; and so on. 


Use the track numbers 8-405 (for 5444) or 20-3999 
(for 5445) to identify the tracks. For example, the 
parameter UNASSIGN-’50,301,352’ causes the 
program to cancel alternate-track assignments for 
tracks 50, 301, and 352. 


Cancel Prior Assignment 


Cancelling an alternate track assignment consists 
of transferring the data from an alternate track 
back to the original track (the track to which the 
alternate is assigned), therefore, freeing the alter- 
nate from being the substitute for the original 
track. 


Before transferring data back to the original track, 
the Alternate Track Assignment program tests the 
condition of the original track. If the test indicates 
that the track is defective, the program stops. 
Through the restart procedure you choose, you can 
tell the program to do one of four things (see _, 
IBM System/3 Disk System Halt Procedure Guide, 
GC21-7540): 


1. Cancel the assignment and transfer the data back 
to the original track regardless of the condition 
of the original track. 


2. Test the track again. 


3. Leave the assignment as it is. If there are other 
tracks for which you are cancelling assignments, 
the program continues with those. Otherwise, 
it ends. 


4. Cancel the job. 


Cancelling assignments is not often done. !t ap- 
plies to cases where a defective track is found, but 
all six alternates are in use. To recover the data 
from the defective track, you might want to 
cancel an alternate track assignment to free the 
alternate track. Normally this involves copying, 
to another disk, a file or library entry that uses an 
alternate track, then freeing the alternate for use 
with the defective track you found. 


OCL CONSIDERATIONS 
The following OCL statements are needed to load 
the Alternate Track Assignment program. 


// LOAD $ALT,code 
// RUN 


The code you supply depends on the location of 
the disk containing the Alternate Track Assign- 
ment program. The codes are as follows: 


Code Meaning 

R1 Removable disk on 
drive one 

F1 Fixed disk on drive 
one 

R2 Removable disk on 
drive two 

F2 Fixed disk on drive 
two 

EXAMPLES 


Conditional Assignment 
Figures 27 and 28 are examples of the OCL state- 
ments and utility control statements needed for a 
conditional assignment as described in the following 
situation. 


Situation 
The sytem cancels a job if a defective track is found 
on the removable disk on drive one. (The name of 
the disk is BILLNG.) Before doing more jobs, the 
operator wants to use the Alternate Track Assign- 
ment program to check the condition of the track 
and assign an alternate to the track if it is defective. 





Explanation: 


@® Alternate Track Assignment program is loaded from the fixed 
disk on drive one.’ 


Figure 27. OCL Load Sequence for Alternate Track Assignment 





Explanation: 


@ The name of the disk (BILLNG) and its location (removable 
disk on drive one) are indicated by the PACK and UNIT 
parameters in the ALT statement. 


@® Because we omitted the VERIFY parameter from the ALT 


statement, the program does surface analysis once when it tests 
the condition of the tracks. 


Figure 28. Utility Control Statements for a Conditional 
Assignment 
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MESSAGES FOR ALTERNATE TRACK ASSIGNMENT 
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mening 
ag a a ln egg egy eee Sa mem Sa mS gy sig ms tee pimp a i pr ee gi el 


ALTERNATE TRACK ASSIGNED This message is printed when an alternate track has been 
assigned to a defective track and the data has been trans- 
ferred to the alternate track. 












PRIMARY TRACK HAS BEEN TESTED This message is printed when it is determined that a 
OK primary track is not defective. 







PRIMARY TRACK STILL DEFECTIVE This message is printed when the Alternate Track Assignment 


program determines that the track is still defective. 














DATA TRANSFERRED BACK TO This message is printed when the data is transferred back to 
PRIMARY TRACK the primary track. 











**SECTOR WITH DATA ERROR ** This message is printed when the Alternate Track Assignment 
program found an error when transferring data. The sector 


that has the error is printed out. 








**RECORD WITH DATA ERROR** | This message is printed when the Alternate Track Assignment 
program found an error when transferring data. The record 
that has the error is printed out. 











PRIMARY TRACK xxx ALTERNATE This message is printed after ALTERNATE TRACK 
TRACK yyy, UNIT-zz ASSIGNED and DATA TRANSFERRED BACK TO PRIMARY 
TRACK. xxx is the primary track number, yyy is the alternate 

track number, and zz is the unit involved. 








ALTERNATE TRACK REBUILD PROGRAM 
SR 


The Alternate Track Rebuild program enables you to correct data that could not be 
transferred correctly to an alternate track. One or more alternate tracks can be 
corrected during a program run. You must supply the control statements and data 


used to correct the errors. 


In writing control statements for this program, you will need the information printed 
by the Alternate Track Assignment program when it assigned the alternate track. 
The printed information tells you the name of the disk and numbers of the track 

and sectors suspected of containing incorrect data. It also includes the data from 
these sectors, which you can use to locate incorrect data. On the 5445, fixed 

record refers to a physical 256-byte record, similar to the sector on the 5444 


CONTROL STATEMENT smn D 


// REBUILD PACK-name,UNIT-code, TRACK-location, LENGTH- 
number,DISP-position 










Substitute data 





// END 


Or replace characters 1-12 and 75-78 of a sector, you can use 
either of the following: 






1. Use one REBUILD statement to replace all the characters 
with a LENGTH parameter of 78. 







Use one REBUILD statement for every set of positions: 
you correct. 










The data you want to substitute must follow the REBUILD 
statements to which it applies. The order of the statements 
and data in the preceding example would be: 







// REBUILD statement 
data for positions 1-78 
// END 












// REBUILD statement for positions 1-12 
data 

// REBUILD statement for positions 75-78 
data 

// END 






PARAMETER AND SUBSTITUTE DATA SUMMARY 


REBUILD Statement 
PACK-name Name of the disk. 


UNIT-code Location of the disk. Possible codes are 
R1, F1, R2, F2, D1, D2. 


TRACK-location 5444 Disk Unit—Number of track and 
sector containing incorrect data. 
Number is printed by Alternate Track 
Assignment program. Track number 
must be three digits; sector number 
must be two digits. (TRACK-01109 
means track 11 sector 9). 


5445 Disk Unit—Number of track and 
fixed record containing incorrect 
data. Number is printed by Alternate 
Track Assignment program. Track 
number must be four digits; fixed 
Record number must be two digits. 
(TRACK-011109 means track 111, 
fixed record 9). 


LENGTH-number Number of characters being replaced. 
Number can be 2-256 and must be a 
multiple of 2 (2, 4, 6, etc.). 


DISP-position Position of the first character being re- 
placed in the sector. Position can be 
1-255. 


Substitute Data 


Code each character in hexadecimal form. Follow every second 
character, except the last, with acomma. EXAMPLE: The 
numbers 123456 would be coded as F1F2,F3F4,F5F6. 
(Appendix A lists the hexadecimal codes for System/3 charac- 
ters.) 
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PARAMETER AND SUBSTITUTE DATA 
DESCRIPTIONS 


PACK Parameter 


The PACK parameter (PACK- anal tells the pro- 
gram the name of the disk that contains the alter- 
nate track being corrected. This name is the one 
written on the disk by the Disk Initialization 
program. 


The Alternate Track Rebuild program compares the 
name in the PACK parameter with the name on the 
disk to see if they match. In this way, the pro- 


gram ensures that the program is using the right 


disk. 


UNIT Parameter | 


The UNIT parameter (UNIT-code) indicates the 
location of the disk that contains the alternate 
track being corrected. Codes for the possible 
locations are as follows: 


Code Meaning 

R1 Removable disk on 
5444 drive one 

Fy Fixed disk on 5444 
drive one 

R2 Removable disk on 
5444 drive two 

F2 Fixed disk on 5444 
drive two 

D1 Removable disk on 
5445 drive one 

D2 Removable disk on 
5445 drive two 

TRACK Parameter 
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The TRACK parameter (TRACK-location) identifies 
the track and sector that contains the data being 
corrected. The defective track, not the alternate 
track, is the one you refer to. Referencing the 
defective track is the same as referencing the alter- 
nate track. 


For the 5444 disk, the possible track numbers are 
008-405. Always use three digits. The possible 
sector numbers are 00-23. Always use two digits. 
The track number must precede the sector number. 
For example, the parameter TRACK-11019 means 
track 110, sector 79. 


For the 5445 disk, the possible track numbers are 
0020-3999. Always use four digits. The possible 
fixed record numbers are 01-19. Always use two 
digits. The track number must precede the fixed 
record number. For example, the parameter 
TRACK-111019 means track 1110, record 19. 


Track and sector numbers are printed by the Alter- 
nate Track Assignment program when it prints data 
from sectors that contain incorrect data. 


LENGTH Parameter 


The LENGTH parameter (LENGTH-number) tells 
the program how many characters you are replacing 
in the sector or fixed record. You must replace 
characters in multiples of 2 (2, 4, 6, and so on). The 
maximum is 256, which is the capacity of a sector 
or fixed record. 


Length applies to characters that occupy consecu- 
tive positions in the sector or fixed record. If the 
characters you want to replace do not occupy con- 
secutive positions, you must either replace all inter- 
vening characters or use more than one REBUILD 
statement. For example, to replace characters 10-11 
and 24-25 in a sector or fixed record, you can do 
either of the following: 


1. Use one REBUILD statement to replace charac- 
ters 10-25 (LENGTH-16). 


2. Use two REBUILD statements to replace charac- 
ters 10-11 (LENGTH-2) and 24-25 (LENGTH-2). 


DISP (Displacement) Parameter 


The DISP parameter (DISP-position) indicates the 
position of the first character being replaced in the 
sector or fixed record. The position of the first 
character is 1; the position of the second character 
is2,and soon. The maximum position you can 
specify is 255. 


Beginning at the position you indicate, the Alternate 
Track Rebuild program replaces the number of char- 
acters you indicate in the LENGTH parameter. 


Substitute Data EXAMPLES 
After each REBUILD statement, you must code the 


substitute characters that apply to that statement. Correcting Characters on an Alternate Track 
The characters must be in hexadecimal form. Ap- Figures 29 and 30 are examples of the OCL and 
pendix A shows the hexadecimal codes for the utility control statements needed for correcting 
System/3 character set. characters on an alternate track. 


Include a comma after every second character. 

For example, the data F1F2,F3F4,F5F6 represents 
123456. F1 is the hexadecimal form of 1; F2 is 
the hexadecimal form of 2; and so on. 


Code only the number of characters you indicated 
in the LENGTH parameter in the REBUILD state- 
ment. 





Note: \f the LENGTH parameter of the REBUILD 
statement exceeds 38, at least two substitute data 
cards are required. Each substitute data card, except 


Explanation: 


@ Alternate Track Rebuild program is loaded from the fixed disk 


the last one, must be completely filled with data and on drive one. 

must have a comma in column 95 and a blank in 

column 96. Figure 29. OCL Load Sequence for Alternate Track Rebuild 
OCL CONSIDERATIONS 


The following OCL statements are needed to load 
the Alternate Track Rebuild program. 


// LOAD $BUILD, code 
// RUN 


The code you supply depends on the location of 
the disk containing the Alternate Track Rebuild 
program. The codes are as follows: 


Code Meaning 

R1 Removable disk on 
drive one 

F1e Fixed disk on drive 
one 

R2 Removable disk on 
drive two 

F2 Fixed disk on drive 
two 
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4 8 
AZ| (RIEU) UD] [PIAIclK|- (Bit LRINIg}, julnit [r]-iRia], TiRIAIclul-idi2isioid LIEN IGITPl-i41, loliisiP|-[siat | | TTT TT TT 
Ces sicsely | TTT EEE 
END TTT EE EEE EE 
Melee obec (elidel OM eee Te Agi LOs Metals ete aah MT Teh aa 
Explanation: 
@ The name of the removable disk (BILLNG) and its location (drive one) are indicated in the PACK and UNIT 
parameters in the REBUILD statement. 
@ The sector containing the incorrect characters is sector O of the alternate track assigned to track 20 (TRACK-02000). 
The character in position 120 is the first character being replaced (DISP-120). 
@® The characters in positions 120 through 123 in sector O are being replaced (LENGTH-4). 
@ The substitute characters follow the REBUILD statement. They are G (C7), H (C8), I1(C9), and 1 (F1). 
Figure 30. Utility Control Statements for Correcting Characters on an Alternate Track 
Situation 
Assume that the Alternate Track Assignment pro- 
gram printed the following information: 
*kKSECTOR WITH DATA ERROR** 
TRACK LecccceelDsvcecccve2Qeeeccese ro veveve et vecvccee HD ccccceeODecccccee WecceeeeeBOveceee 38 
02000 Z ABCDEFGHI JKLMNOPQR STUVWXYZ 0123456789 
FFFFFF903B524677 DC CCCCCCD DDDDDDEE EEEEEE FFFFFFOOOOOO 
FEDCBAFBEDFEF705 FO ABCDEFO ABCDEFO1 ABCDEF ABCDEFOOO000 


000000000000000000000000000000200010000 8300000000000000000000000000000000000000000000000 
000000000000000000000000000000024888C210010000000000000000000000000000000000000000000000 


ODDDDDDNDDDDDADANNDNDNNDNDNDNDNDDNDNDNDDDNDNDNDNDNDDNDDNDD NNN DNDNDND DNDN NNDAANDNDNNNNNNNNNDNNNDNNNNC 
ODDDDDDDNDDDNDDDDDNDDN0ND00N0NDNDNNNNNDN0DNDNDNDDNN0N0NN0N0000000000000000000000000005A 


[55202A 


it means that errors were detected in sector 0 of 
track 20. (Assume the name of the disk is BILLNG.) 


In checking the characters printed by the program, 
you found that the characters in positions 120-123 
in the sector are incorrect and you want the oper- 
ator to run the Alternate Track Rebuild program 
to correct them. 
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: 
FILE AND VOLUME LABEL DISPLAY PROGRAM 
ELE NOTES I AI DT ET EE ET, 


The File and Volume Label Display program has two uses: 


1. Print the entire Volume Table of Contents (VTOC) from a disk. 


2. Print only the VTOC information for certain data files. 


In both cases, the program also prints the name of the disk. 


The printed VTOC information is a readable, up-to-date record of the contents of 
the disk. There can be any number of reasons why you might need the information. 
Some of the more common ones are as follows: 


1. Before re-initializing a disk, you might want to check its contents to ensure that 
it contains no libraries, permanent data files, or temporary data files. 


2. You want to find out what disk areas are available for libraries or new files. 


3. You want specific file information, such as the file name, designation (permanent, 
temporary, scratch), or the space reserved for the file. 


The control statements you supply for the program depend on the program use. 


CONTROL STATEMENT SUMMARY 


Uses Control Statement @ 


Print entire // DISPLAY UNIT-code, LABEL-VTOC 
VTOC // END 


Print only file // DISPLAY UNIT-code, LABEL 


filename 


information //END filenames 


from VTOC 


® For each use, the program requires the statements in the 
order they are listed: DISPLAY, END. 


@ The number of filenames you list for a program run may not 
exceed 20. (VTOC is considered as one filename.) 





PARAMETER SUMMARY (DISPLAY STATEMENT) 


UNI T-code Location of the disk containing 
the VTOC information being 
printed. Possible codes are R1, 
F1,R2, F2, D1, D2. 


LABEL-VTOC Print entire contents of VTOC. 


LABEL-filename Print VTOC information for 
one file. 


LABEL-’filename,filename,...’ Print VTOC information for 
more than one file. 


@) The number of filenames you list for a program run may not 
exceed 20. (VTOC is considered as one filename.) 
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PARAMETER DESCRIPTIONS 


UNIT Parameter 


The UNIT parameter (UNIT-code) indicates the 


location of the disk containing the VTOC informa- 
tion being printed. Codes for the possible locations 
are as follows: 


Code 


R1 


F1 


R2 


F2 


D1 


D2 


PACK-11i111 


Meaning 


Removable disk on 
5444 drive one 


Fixed disk on 5444 
drive one 


Removable disk on 
5444 drive two 


Fixed disk on 5444 
drive two 


Removable disk on 
5445 drive one 


Removable disk on 
5445 drive two 


ID-ANDERSUN 


NO.e UF ALTERNATE TRACKS AVAILABLE-2 


TRACKS wWiTH ALTERNATE ASSIGNED—302 ,200 


DEFECTIVE ALTERNATE TRACKS—3 95 


VEVICE CAPACI TY-400 


LIBRARY EXTENT-— 


AVAILABLE SPACE ON PACK 


LOCATION 
028 
399 
401 


PACK~-111111 
FILE 
NAME 


COST 
MASTER 
EMPLOYEE 
UPDATE 
PARTS 
SERTAL 
ADDRESS 
BACKUP 


Figure 31. VTOC Printout Example 
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START END EXTENDED END 
008 027 027 
TRACKS 
367 
vol 
ool 
UNI T-R1 DATE 11/11/70 
FILE KEEP FILE REC KEY 
DATE TYPE TYPe LEN LEN 
O9/21/71 T C OL28 
O3414/74 P CC 0128 : 
12/07/70 P I 0128 05 
BOFAGAFE = 1 0128 05 
os/09/71 TT v 0128 
O8A16/7#4 T C 0128 
09/21/71 T CC  oo08o 
09/29/71 S Cc 0128 


KEY 
LUC 


0005 
0005 


LABEL Parameter 


The LABEL parameter indicates the information 
you want printed: the entire contents of the VTOC 
or only the information for certain files. The VTOC 
is an area on disk that contains information about 
the contents of the disk. Every disk, fixed and re- 
movable, contains a VTOC. 


Entire Contents of VTOC 
The parameter LABEL-VTOC means to print the 
entire contents of the VTOC. The meaning of the 
information the program prints is given in the 


following chart. Headings that are listed are the 
ones printed by the program to identify the informa- 


tion. Figures 31 and 32 are examples of VTOC 
printouts. 


If the program needs more than one page to list 
the file information it prints the headings for the 


file information at the top of each new page. 


NEXT AVAIL 
RECORD 


405/11/129 
404/11/129 
RE K 
396/11/129 
* KKK 
398/11/129 
397/06/065 
399/11/129 


NEXT AVAIL 
KLY 


402/C1/129 
395/0C/185 


INDEX 
START END 


402 
395 


402 
395 


DATA VOL 
START END SEW 
465 405 00 
404 404 00 
403 403 02 
396 396 00 
400 400 Q1 
398 398 00 
39% 397 00 
399 399 00 


[55201A 


PACK-DLUDLDL lu- 
NU. UF ALTERNATE TRACKS AVATLABLE-OVU 
AVAILABLE SPACE UN PACK 


LUCATIUN TRACKS 











OUL/U0 3941 
£99/0U UvU02 ee 
PACK-DivloL = ~UNIT-ul- UATE 09/29/71 ati ea miianee 
Fice tite Keee FIlLc Rev KEY KCY NEXT AVAIL NeXT AVAIL __ LNvEX 2 VATA VUL 
NAME DATE FYPE TYPt Len Lew LUC RECURD KEY START END START END SEX 
COST 09/21/74 T D Obes EE ~ 4199710 199/19 00 
MASTER O3/14/7i P D 0096 HEH _ _ 199/08 199/09 00 
EMPLUYEE L2/uT/7U P I 0090 G5 0006 199/03/G01/101 199/02/01/019 199/02 199/02 199/03 199/07 OV 
PARTS O8/09/701 T D 0256 ERE K —_ —si—i‘izaI BALE 198719 «+00 
ADDRESS O9/21/01 T C vu03V 198/16/01/U61 198/16 198/17 O18 
SERIAL Us/ib/il T CC Olvy 196/01/01/201 _ ___ 298/01 198/15 00. 
UPDATE U9/14/741 S I O20u 03 UOU? 199/01/02/145 199/00/01/015 199/00 199/00 199/01 199/01 OV 


Figure 32. VTOC Printout Example of 5445 Disk 
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MEANING OF VTOC INFORMATION | 





Heading 
PACK-name 
|D-characters 


NUMBER OF ALTERNATE TRACKS 
AVAILABLE-number 


TRACKS WITH ALTERNATE ASSIGNED 


DEFECTIVE ALTERNATE TRACKS 


DEVICE CAPACITY-number 


LIBRARY EXTENT 


START 


END 


EXTENDED END 


AVAILABLE SPACE ON PACK 
LOCATION 
TRACKS 

PACK-name 

UNIT-code 

DATE-xx/xx/xx 
FILE NAME 


FILE DATE 


KEEP TYPE 


FILE TYPE 


REC LEN 


KEY LEN 


KEY LOC 


Meaning 
Name of the disk. 
Additional disk identification (if any). 


Number of alternate tracks available for assignment. 


Numbers of primary tracks that have been assigned an alternate. 


Numbers of the alternate tracks that are defective. 


Disk drive capacity (number of tracks) - 5444 disk only. 


Boundary of libraries on the disk. (If the 5444 disk contains no libraries, 
these headings are not printed.) 
Track on which library begins. | If 5444 disk contains both source and 
object library, START refers to begin- 
ning of source library and END refers 
to end of object library. 


Track on which library ends. 


Object library only (5444 disk only). Track on which extension to library 
ends. When object library is full, temporary entries can be placed in space 
following end of library, provided that space is available. 


Available disk areas. 


First track in available area (5444). First cylinder/track in available area (5445). 
Number of tracks available. 
Name of the disk. 


Location of the disk containing the VTOC information. 


Program level date 


Name that identifies file in VTOC. 
Date given the file when file was placed on disk. 


File designation: 
P = permanent 
T = temporary 
S = scratch 
File type: 
! = indexed 
C = consecutive 
D = direct 
SC = split cylinder, consecutive 
SD= split cylinder, direct 


Number of characters in each record in file. 
Indexed files only. Number of characters in each record key. 


Indexed files only. Position in record ‘occupied by last character of record 
key. 


Heading Meaning 


NEXT AVAIL RECORD Beginning location of next available record in file. For 5444 disk, location is 
track, sector, and position within sector. For 5445 disk, location is cylinder, 
track, fixed record, and position within record. 

EXAMPLE: 099/18/006 = track 99, sector 18, position 6. 


050/02/12/006 = cylinder 50, track 2, fixed record 12, 


position 6.01) 


NEXT AVAIL KEY Indexed files only. Beginning location of next available record key in index 
portion of file. For 5444 disk, location is track, sector, and position within 
sector. For 5445 disk, location is cylinder, track, fixed record, and position 
within record. 

EXAMPLE: 090/10/006 = track 90, sector 10, position 6 @® 


052/03/10/006 = cylinder 52, track 3, fixed record 10, 
position 6. @ 


INDEX indexed files only. For 5444 disk, tracks on which index starts (START) and 
START END ends (END). For 5445 disk, cylinder/track on which index starts (START) 
and ends (END). 


DATA Disk area reserved for the file. START is the first 5444 track or 5445 cylinder/ 
START END track of the area. END is the last 5444 track or 5445 cylinder/track. For 
indexed files, this refers to the data portion of the file. 


VOL SEQ applies to multivolume files only. It indicates the order of this disk 
as it relates to the other disks containing the remaining portion of the file. 


(1) If the first byte of the next available record occurs in the next track after the end track of DATA START END then this 
field will contain ****. 


If the first byte of the next available key occurs in the next track after the end track of INDEX START END, 
then this field will contain ****., 





File information Only OCL CONSIDERATIONS 
The parameter LABEL-filename or LABEL-’file- The following OCL statements are used to load the 
names‘ means to print certain file information the File and Volume Label Display program. 
from the VTOC. For one file, use LABEL-filename; 
for two files, use LABEL-‘filename, filename’; and so // LOAD $LABEL,code 
on. (Use the names that identify the files in the // RUN 
VTOC.) You can list 20 filenames for a program 
run. The statement length, however, is restricted The code you supply depends on the location of 
to 96 characters. the disk containing the utility program. The codes 


are as follows: 
The program prints the file information for each 


of the files you list. This is the information des- Code Meaning 
cribed for the headings PACK name and FILE 
LABEL in the chart, Meaning of VTOC Information. R1 Removable disk on 
drive one 
If the program needs more than one page to list the - ee 
file information, it prints headings for the file FI ixed disk on drive 
information at the top of each new page. one 
R2 Removable disk on 
drive two 
F2 Fixed disk on drive 
two 
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EXAMPLES 


Printing VTOC Information for Two Files 


Figures 33 and 34 are examples of the OCL state- 
ments and utility control statements needed to 


print VTOC information for two files. 


a a a 


Explanation: 


® The File and Volume Label Display program is loaded from the 


fixed disk on drive one, 


Figure 33. OCL Load Sequence for File and Volume Label! Display 


Explanation: 


and INVO1 (LABEL-’BILLNG,INVO1’ in DISPLAY statement). 
They are located on the removable disk on drive one (UNIT-R1). 


@ The files for which information is printed are named BILLNG 


Figure 34. Utility Control Statements for Printing VTOC Information for Two Files 
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RA eR IPN 
FILE DELETE PROGRAM 
SEALS a ET 


The File Delete program has three uses: 
@ Remove all files from a disk. 
@ Remove only the files you name. 


@ Scratch file references in the Volume Table of Contents (VTOC). Deleting files 
frees the space they occupy for use by new files. 


The program may be used on temporary, scratch and permanent files. To delete per- 
manent files, you must use the File Delete program. You can scratch temporary files 
by using the File Delete program or by changing the file designation from temporary to 
scratch (using the OCL keyword RETAIN) when you use the file. 


The control statements you supply for the File Delete program depend on the function 
to be performed. 


The SCRATCH statement does not erase files from the disk. It changes their designa- 
tion to scratch (S) in the Volume Table of Contents (VTOC). By doing this, the prog- 
ram makes the areas that contain the files available for other files or for system prog- 
rams. A halt will occur if an attempt is made to create a new multivolume file that 
will have the same label on disk as an existing single volume file, or an attempt is made 
to create a single volume file bearing the same label as an existing multivolume file. 
The halt will occur even though the existing file is a scratch file. If a REMOVE state- 
ment is used, files are erased from the disk. No file is physically scratched or removed 
from the VTOC until end of job has occurred. 
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CONTROL STATEMENT SUMMARY 


Use Control Statements (1) 


Scratch all //SCRATCH PACK-name, UNIT-code, LABEL-VTOC 
filesinthe //END 
VTOC. 


Scratch only // SCRATCH PACK-name, UNIT-code, LABEL-filename, DATE-date (2) 
one file in 

the VTOC. 

filename 


Scratch // SCRATCH PACK-name, UNI!IT-code, LABEL- aed 


multiple 
files in 
the VTOC 
NO 


Remove all // REMOVE PACK-name, UNIT-code, LABEL-VTOC, DATA- 4 or 
files from YES 
disk 

//END 
Remove // REMOVE PACK-name, UNIT-code, LABEL- 
only the 
files named 
from disk 


filename 
‘filenames’ 


NO 
DATE-date, DATA- < or 
YES 


//END 


(1) For each use, the program requires the statements in the order they are listed: SCRATCH, END, or 
REMOVE, END. 


(2)Use this form of the SCRATCH or REMOVE statement when two or more files have the same name and 
you want to delete one of them. At least one SCRATCH or REMOVE statement is required by the 
program. When deleting files, you can list as many filenames as the statement will hold. The statement 
length, however, cannot exceed 96 characters. If you want to delete more files than you can specify 
in one SCRATCH or REMOVE statement, use additional statements. The END statement must follow 
the last SCRATCH or REMOVE statement. 






PARAMETER SUMMARY 










PACK-name Name of the disk. 









Location of the disk. Possible 
codes are R1, F1, R2, F2,D1, D2. 


UNIT-code 







Scratch or remove all files 
from the VTOC. 


LABEL-VTOC 












LABEL-filename Scratch or remove 
only the file 


named in the VTOC. 





Use names 
that 








identify 
LABEL-’filename,filename,... Scratch or remove files in 
only the files vToc 






named in the 
vToc. ®@ 


Date of the file being deleted. 
Date must be a 6-digit number. 
EXAMPLE: DATE-062070 
means June 20, 1970. 





DATE-date@) 







Delete files from VTOC 


f NO 
DATA - or 
and/or disk 


\ ves 






these are the names you gave the files when you placed them 
on disk. 






@),, the pack has more than one file with the name you list in 
the LABEL parameter, they will all be deleted unless you 
use the DATE keyword and parameter to indicate a particular 
file. If the DATE keyword is used, only one fitename can be 
given in the LABEL parameter for that control statement. 
(The DATE parameter must be in the same format as the 
system date.) 







®),, YES is used, then all files specified will be deleted from 
the VTOC and the disk. A message will be printed on the 
Syslog device for each file removed. YES is not allowed 
on a SCRATCH statement. NO is the default value. If NO 

is used, all files specified will be deleted from the VTOC 

but not deleted from the disk. 






PARAMETER DESCRIPTIONS 


PACK Parameter 
The PACK parameter (PACK-name) tells the pro- 
gram the name of the disk that contains the files 
being deleted. The name you supply in this para- 
meter is the one written on the disk by the Disk 
Initialization program. 


The File Delete program compares the name in the 
PACK parameter with the name on the disk to en- 
sure they match. In this way, the program ensures 
that it is using the right disk. 


UNIT Parameter 
The UNIT parameter (UNIT-code) tells the pro- 
gram the location of the disk containing the files 
being deleted. Codes for the possible locations 
are as follows: 


Code Meaning 

R1 Removable disk on 
5444 drive one 

F1 Fixed disk on 5444 
drive one 

R2 Removable disk on 
5444 drive two 

F2 Fixed disk on 5444 
drive two 

D1 Removable disk on 
5445 drive one 

D2 Removable disk on 
5445 drive two 


LABEL Parameter 
The LABEL parameter identifies the files you want 


to delete from the disk. Its form depends on the 
files you are deleting: 


Form Files Deleted 


LABEL-VTOC All of them. 


LABEL-filename Only the file that is 
named. The name can 
apply to more than one 
file. If it does, all of 
those files are deleted 
unless you use a DATE 
parameter to identify a 
particular one. 
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Form Files Deleted 
LABEL-‘filename,filename....’ 

Only the files that 

are named. A name 
can apply to more 
than one file. If it 
does, all of those files 
are deleted. You can 
list as many filenames 
as the statement can 
hold; the statement 
length, however, is 
restricted to 96 char- 
acters. Additional 
REMOVE or 
SCRATCH statements 
may be used for ad- 
ditional filenames. 
The maximum num- 
ber of files that can be 


deleted in one run is 40. 


DATE Parameter 
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The DATE parameter can only be used with 
LABEL-filename. The DATE parameter (DATE- 
date) applies to two or more files that have the 
same name. It tells the program the date of the 
one you want to delete. 


Every file on disk has a date, which is given to the 
file at the time it is created. When two or more 
files have the same name, the dates are used to 
tell one file from another. 


The date is a 6-digit number: two digits for day, 
two for month, and two for year. Day, month, 
and year can be in one of two orders: (1) month, 
day, year, and (2) day, month, year. For example, 
061870 and 180670 both mean June 18, 1970. 


In the DATE parameter, be sure to specify day, 
month, and year in the same order as they were 
specified when you placed the file on disk. 


DATA Parameter 


The DATA parameter lets you remove the files 
specified directly from the disk as well as from 
the VTOC. 


If NO is coded in this parameter, then the file 
specified will not be removed from the disk, but 
any reference to it in the VTOC will be removed. 

If neither YES or NO is specified, NO is used as the 
default condition. 


If YES is coded in this parameter, then the file 
specified will be removed from the disk, and any 
reference to it in the VTOC will be removed. In 
addition, a message will be printed on the Syslog 
device for each file removed from the disk in this 
format: 


‘DATA REMOVED FOR FILE DATE 000000’ 


The DATA parameter may be used on a SCRATCH 
statement but only NO may be coded. If YES is 
coded on a SCRATCH statement, an error will 
occur. 


OCL CONSIDERATIONS EXAMPLES 
The following OCL statements are needed to load 


the File Delete program: Deleting One of Several Files Having the Same 


Name 
// LOAD $DELET,code Figures 35, 36, and 37 are examples of the OCL 
// RUN statements and utility control statements needed 
to delete one of several files having the same name 
The code you supply depends on the location of the as described in the following situation. 
disk containing the utility program. The codes 
are as follows: Situation 
Assume that three files on a removable disk have 
Code Meaning the same name: INVO1. The dates of these files 
. are 6/16/70, 8/18/70, and 11/15/70. You want to 
R1 Removable disk on delete the version dated 6/16/70. 
drive one 
F1 Fixed disk on drive 
| one 
R2 Removable disk on 
drive two 
F2 Fixed disk on drive 
two 
1. 4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 
LEAR RRERR RAE AERA VAR RE SAAR ECAR RRR RE RTA R RARE RRR R RARE ARERR RER DER EaE 
/V\ |LiolAip| SIDIELIEI SIFU TTT ETT TLE TEE EEE EEE 
VVUIRUNT TEE EE EEE EEE EEE 
Cee ee ee ee ee eee eo ete A ee ee eee IM Paes 
Explanation: 
@ File Delete program is loaded from the fixed disk on drive one. 
Figure 35. OCL Load Sequence for File Delete 
1 4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 
JV | SICIRAIT CH] PAick!-WiAgg 1 LIABIELL | INWiolM, luli tri-ieja, plariel-lael lotrel | TTT Tt tit TT 
VUEND TTTTTTT TTT EEE EEE 
Cee ee eee ee ee eee ee ce ee ee Si ae ee eS TS at 
Explanation: 


@ Disk that contains the file being deleted is named 00001 (PACK-00001 in SCRATCH statement). 


© Because two other files have the name INVO1, the date (061670) is needed to complete the identification 
of the file you want to delete (LABEL-INVO1 and DATE-061670). 


® The removable disk containing the file to be deleted is on drive one (UNIT-R1). 


Figure 36. Utility Control Statements to Delete One Version of a File 
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Explanation: 


@® A REMOVE statement is used instead of aSCRATCH statement. 


@® Disk that contains the file being deleted is named 00001 
(PACK-00001 in REMOVE statement). 


@ Because two other files have the name INV01, the date (061670) 
is needed to complete the identification of the file you want to 


delete (LABEL-INVO1 and DATE-061670). 


@® The removable disk containing the file to be deleted is on drive 
one (UNIT-R1). 


@ The YES specification in the DATA parameter will delete all 
data from the disk containing information on the specified file. 


Figure 37. Utility Control Statement to Delete One Version of a File Using a REMOVE Statement 


ae 
DISK COPY/DUMP PROGRAM 
a Re ea 


The Disk Copy/Dump program has three general uses. The control statements you 


must supply depend on the program use. 


The program uses and most common reasons for them are as follows: 


Program Use 


Copy entire contents of one 
disk to another. 


Copy a data file from one 
disk to another, or from one 


area to another on same disk. 


Print all or part of a data file. 


Common Reasons 


Provide a reserve disk in case something 
happens to the original disk. Important 
disks, such as those containing your libraries 
and permanent data files, are normally the 
ones you would copy. 


Any of the following: 


@ Provide a reserve file in case something 
happens to the original file. 


@ Move a file to a larger disk area. 


@ Re-organize the data portion of an in- 
dexed file. (Data in the copy of the file 
is re-organized; the original file is un- 
changed.) 


@ Delete records from a file. (Records are 
omitted from the copy of the file; the 
original file remains unchanged.) 


Provide a printed copy of the records in a 
file, perhaps for use in checking the records 
for errors. 


The OCL sequence used to load the program describes the disk file being copied or 
printed. If you are copying the file to disk, the file being created must also be des- 


cribed in the OCL sequence. 
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CONTROL STATEMENT SUMMARY 








| Uses ) 


Copy an Entire Disk 
Copy a Data File 


Copy and Print 
a Data File : 


Copy a Data File, 
But Print Only a 
Part of the File 


Print an Entire Data 
File 


Print Only a Part 
of a Data File 


Con trol Sieiements 


// COPYPACK FROM-code,TO-code 


// END 
a DELETE- @) on @ NO | ® 
// COPYFILE -or- DISK,< —-or- ‘position,character’, ~~” REORG- < -or- ¢ ,~“WORK- < -or- 
! OUTPUT- OMIT- | YES YES 
// END 


OUTPTX- DELETE- NO 
// COPYFILE -or- BOTH, -or- poslionichorecter U peonewves Owone or | (5) 


OUTPUT- OMIT- YES 
// END 
eae DELETE- 3) @ NO 
// COPYFILE -or- BOTH, -or- ‘position,character’, REORG-YES, ““WORK- ¢ -or- (5) 
OUTPUT- st ! YES 
// SELECT KEY,FROM-‘key’ ® 
-Or- 
// SELECT KEY,FROM-‘key’,TO-’key’ ® 
-or- One of these 
// SELECT RECORD,FROM-number 
-Or- 


// SELECT RECORD,FROM-number,TO-number 


/| SELECT PKY,F ROM-"key’ @ 
-Or- 
// SELECT PKY,FROM-‘key',TO-'key’ (7) 


// END 
OUTPTX- 


conve. | -or- | PRINT 
OUTPUT- 
// END 
OUTPTX- 
// COPYFILE ! -or- | PRINT 
OUTPUT- 
// SELECT KEY,FROM-‘key’ 


-Or- 
//SELECT KEY,FROM-’key’,TO-’key’ G) 
-or- One of these 
// SELECT RECORD,FROM-number 
-Or- 
// SELECT RECORD,FROM-number, TO-number 


// SELECT PKY,FROM-'key’D) 


-or- | 
// SELECT PKY,FROM-‘key’ ,TO-‘key’ @® 
// END 


GO) the program uses include the possible combinations of copying and printing files. 


Deor each use, the program requires the control statements in the order they are listed: COPYPACK, END; COPYFILE, END; and 
COPY FILE,SELECT,END. : 


(3) Needed only if you want to delete a certain type of record. DELETE cannot be used with direct files. 


©) applies only to indexed files. When OUTPUT-BOTH is specified, REORG-YES is required. 


®wor K-YES applies if you are copying the file from one removable disk to another using the same disk drive (drive one). WORK-NO 
applies if you are copying the file from one area to another on the removable disk on drive one. 


Identifies the portion you want to print. 


(7) Index files with packed keys. 
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PARAMETER SUMMARY | 





COPYPACK Statement 
FROM-code Location of disk to be copied. Possible codes are R1, F1, R2, F2, D1, D2. 
TO-code Location of disk to contain the copy. Possible codes are R1, F1, R2, F2, D1, D2. 
COPYFILE Statement 
OUTPUT-DISK Copy the file from one disk to another, or from one area to another on the same disk.) 
OUTPUT-PRINT Print the entire file or only part of the ‘ite. 
OUTPUT-BOTH Copy the file from one disk to another, or from one area to another on the same disk. CQ) 
Also print the entire file or only part of it. 
DISK 
OUTPTX- < PRINT Printed output will be displayed in hexadecimal values. 
BOTH 
DELETE-’position,character’ These parameters are optional. It means that all records with the specified character in the speci- 
-or- fied record position are deleted. DELETE causes deleted records to be printed.(2) OMIT causes 
OMIT-'position, character’ deleted records not to be printed. Character can be any of the System/3 characters except blank, 
apostrophe, or comma. Position can be any position in the record (the first position is 1, 
second 2, and so on). The maximum position is 4096. 
REORG-NO@) indexed files only. Copy records in the same way as they are organized in the original file 
(the file from which the records are copied). 
REORG-YES @) Indexed files only. Re-organize the records so that the records in the data portion of the 
file are in the same order as their keys are listed in the index. 
work-no() Required for copying a file from one area to another on a removable disk on drive one. 
It means: do not use a work area on the fixed disk on drive one. 
work.ves (5) Required for copying a file from one removable disk on drive one to another removable 
disk on that drive. It means: use a work area on the fixed disk on drive one or on the 
removable disk on drive one if the file being copied is on the 5445, R1 must have a 
minimum of 198 contiguous unused tracks. 
SELECT Statement 
KEY FROM-'key’ Indexed files only. Print only the part of the file from the record key that is specified 
PKY(’ aad in the FROM parameter to the end of the file. 


Indexed files only. Print only the part of the file between the two record keys that are 
specified in the FROM and TO parameters (including the records indicated by the 
parameters). To print only one record, make the FROM and TO record keys the same. 
RECORD,FROM-number Print only the part of the file from the relative record number specified in the FROM 
parameter to the end of the file. 


KEY A ee 
a \ Row key’, 1 O-‘key 


vv 


RECORD,FROM-number, Print only the part of the file between the relative record numbers indicated by the 
TO-number parameters (including the records indicated by the parameter).(5) 


On the OCL load sequence, the operator indicates which file is to be copied or printed. For files being copied, he must also 
indicate whether the file is being copied from one disk to another or from one location to another on the same disk. 








(2) Program prints the records it deletes. 
(3) This is due to their delimiter function. 


©) REORG-NO is assumed if you omit the REORG parameter. When OUTPUT-BOTH is used for indexed files, REORG-YES 
is required. 


G)wor K-NO is assumed if you omit the WORK parameter. 


(6) To print only one record, make the FROM and TO record keys the same. 
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PARAMETER DESCRIPTIONS 


FROM and TO Parameters (COPYPACK) 


The COPYPACK statement is used to copy the con- 
tents of one disk to another. It has two parameters: 
FROM and TO. They tell the program the locations 
of the two disks on the disk unit. 


The FROM parameter (F ROM-code) indicates the 
location of the disk you are copying. The TO para- 
meter (TO-code) indicates the location of the disk 
that is to contain the copy. 


Codes for the possible locations are as follows: 


Code Meaning 

R1 Removable disk on 
5444 drive one 

F1 Fixed disk on 5444 
drive one 

R2 Removable disk on 
5444 drive two 

F2 Fixed disk on 5444 
drive two 

D1 Removable disk on 
5445 drive one 

D2 Removable disk on 
5445 drive two 


Copying Entire Disk 
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When copying a disk, the Disk Copy/Dump pro- 
gram transfers the contents of the disk to another 
disk. The content of the two disks will be the same, 
except for the disk names and alternate track infor- 
ation which may be different. 


The disk you are copying can contain libraries or 
data files or both. The disk that is to contain the 
copy must not contain libraries, temporary data 
files, or permanent data files. 


The program can copy the contents of one remova- 
ble disk to another using one disk drive. The drive, 
however, must be drive one when using the 5444 
disk. (The system pack and the pack from which 
the Disk Copy/Dump program is loaded must be 
Fi.) 


To do this, the program uses available space on the 
fixed disk on drive one (5444 disk). It fills the 
available space with information from the disk you 
are copying. Then it prints a message telling the 
operator to mount the other removable disk (the 
one to contain the copy) on drive one. After trans- 
ferring the information from the fixed disk to the 
removable disk the program prints another message 
telling the operator to remount the disk you are 
copying. The program repeats this procedure until 
all information has been transferred. 


Until the contents of the disk is completely copied 
on the new disk, three addressing portions of the 
new disk are changed to prevent accidental usage 
of a partially filled disk. Therefore, if the copying 
process is stopped before it is completed, the pack 
is unusable. You can restart the copying process 
by reloading the Disk Copy/Dump program, or you 
can restore the disk by reinitializing. 


After a successful copy, the copy program prints 
a message: 


COPYPACK IS COMPLETE 


Note: \f you copy a disk containing an active check- 
point, that checkpoint will exist on both the FROM 
and TO disks. When one of the two active check- 
points is utilized to restart the checkpointed program, 
care must be taken to ensure that the job is not 
restarted a second time. To ensure that this will not 
occur, it is recommended that you perform IPL and 
load Restart ($$RSTR) from the pack containing 
the second active checkpoint If you then select the 
controlled cancel option when the Hinn halt occurs 
(nn is the last requested checkpoint number), the 
checkpoint will be deactivated. 


OUTPUT Parameter (COPY FILE) 


The OUTPUT parameter is used when copying and 
printing data files. It indicates whether you want 
the program to copy, print, or copy and print a 
file. The OUTPTX parameter can be used to dis- 
play printed output in hexadecimal values. 


The parameter OUTPUT-DISK means to copy the 
file; OUTPUT-PRINT means to print the file; and 
OUTPUT-BOTH means to copy and print the file. 


Copying Files 


The Disk Copy/Dump program can copy a file from 
one disk to another or from one area to another on 
the same disk. 


The OCL load sequence for the Disk Copy/Dump 
program indicates (1) the name and location of the 
file being copied, and (2) the name and location of 
the copy being created. (See OCL Considerations 
in this section.) 


The program can copy a file from one removable 
disk to another using one disk drive. The drive, 
however, must be drive one. (See description of the 
WORK parameter for more information.) (The 
system pack and the pack from which the Disk 
Copy/Dump program is loaded must be F 1.) 


In copying a file, the program can omit records. 
(See the description of the DELETE parameter for 


more information.) 


In copying an indexed file, the program can re- 
organize records in the data portion such that they 
are in the same order as their keys are listed in the 
index. (See the description of the REORG para- 
meter for more information.) 


Printing Files 


The program can print all or part of a data file. To 
print only part, the program needs a SELECT con- 
trol statement. (See the description of the SELECT 
control statement parameters in this section.) If you 
do not use a SELECT statement, the entire file is 
printed. 


If you use SELECT or REORG, records from in- 
dexed files are printed in the order their keys ap- 
pear in the index portion of the file; otherwise, they 
are printed as they appear in the file. For each 
record, the program prints the record key followed 
by the contents of the record. 


Records from sequential and direct files are printed 
in the order they appear in the file. For each record, 
the program prints the relative record number fol- 
lowed by the contents of the record. 


The program uses as many lines as it needs to print 
the contents of a record. Appendix A lists the 
hexadecimal numbers for characters in the stan- 
dard character set. 


The following is an example of the way the pro- 
gram prints hexadecimal numbers using OUTPTX: 


ABCDE GHIJ12345 


CCCCCBCCCDFFFFF4444444 
1234567891123450000000 


The hexadecimal number B6 represents a charac- 
ter that has no print symbol. 


After printing the last record, the program triple 
spaces and prints the following message: 


(number) RECORDS PRINTED 


DELETE Parameter (COPY FILE) 
In copying a data file, the Disk Copy/Dump pro- 
gram can omit records of one type. The DELETE 
parameter identifies the type of record. Use of the 
DELETE parameter is optional. If you do not use 
it, no records are deleted. 


The form of the parameter is DELETE-’position, 
character’. Character is the character that identifies 
the records. Position is the position of the charac- . 
ter in the records. For example, with the parameter 
DELETE-‘100,X’, all records with an X in position 
100 are deleted. 


Deleted records are always printed. If you are both 
copying and printing a data file, deleted records 

are printed with the other records that are printed. 
The deleted records are preceded by the word 
DELETE. 


The OMIT keyword can be used instead of 
DELETE. The deleted records are not printed if 
OMIT is used. 


REORG (Reorganize) Parameter (COPY FILE) 
In copying an indexed file, the program can re- 
organize the file, such that the records in the data 
portion are in the same order as their keys in the 
file index. The REORG parameter tells the pro- 
gram whether or not to reorganize the file. 


REORG-YES means to reorganize. REORG-NO 
means not to reorganize. REORG-NO is assumed 
if you omit the parameter. 


If you tell the program to reorganize the file, the 
reorganization applies to the copy of the file rather 
than the original file. The original file is not 
affected. 


Reorganization (REORG-YES) is required when 

you are both copying and printing an indexed file 
(OUTPUT-BOTH). However, the REORG parameter 
does not apply to copying temporary entries. 
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WORK Parameter (COPY FILE) 


The WORK parameter applies to copying a data 
file from (1) one removable disk to another using 
the same disk drive (WORK-YES), or (2) one area 
to another on a removable disk on drive one 
(WORK-NO). It tells the program whether or not 
to use a work area on the fixed disk on drive one. 


The parameter WORK-YES means to use a work 
area. WORK-NO means not to use a work area. 
WORK-NO is assumed if you omit the WORK 
parameter. 


Work Area 


If you have only one disk drive, a common use of 
the Disk Copy/Dump program might be to copy 
a file from one removable disk to another. To do 
this, the program must use a work area on the 
fixed disk. The output file must be a new file. 


If you are copying on 5445 drive one, the work area 
will be on R1. R1 must contain a minimum of 198 
contiguous unused tracks. It is recommended, how- 
ever, that R17 contain no files or libraries as the num- 
ber of pack changes on D1 will decrease with an in- 
crease in work area space. You cannot copy split 
cylinder files from D1 to D1 using WORK-YES. 


In copying the file, the program fills the work area 
with records from the file you are copying. Then 
it prints a message telling the operator to mount 
the other removable disk (the one to contain the 
copy) on drive one. After transferring the records 
from the work area to the removable disk, the pro- 
cram prints another message telling the operator to 
remount the disk containing the file you are copy- 
ing. The program repeats this procedure until all 
records have been transferred. 


If you have two disk drives, you can also use the 
same drive to copy a file from one removable disk 
to another. The drive, however, must be drive one. 


‘You can copy a file from one area to another on the 
same disk. If you do, and the disk is a removable 
disk that you plan to mount on drive one, use the 
WORK-NO parameter. This keeps the program from 
using a work area on the fixed disk when it transfers 
the file from one area to the other. 


SELECT KEY and SELECT PKY Parameters 
(SELECT) 
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The SELECT KEY and SELECT PKY parameters 
apply to printing part of an indexed file. The 
SELECT PKY parameter applies to printing part of 
an index file which contains packed keys. The 
parameters are FROM and TO. 


The FROM parameter (F ROM-‘key’) gives the key 
of the first record to be printed. The TO parameter 
(TO-‘key’) gives the key of the last record to be 
printed. The record keys between those two in the 
file index identify the remaining records to be 
printed. If you want to print only one record, use 
the same record key in both the FROM and TO 
parameters. 


For example, the parameters FROM-’000100’ and 
TO-'000199’ mean that records identified by keys 
000100 through 000199 are to be printed. 


If the file index does not contain the key you indi- 
cate in a FROM parameter, the program uses the 
next higher key in the index. 


You can omit the TO parameter. if you do, the 
program assumes that the last key in the index is the 
TO key. 


You can use fewer characters in the FROM or TO 
parameter than are contained in the actual keys; 
when keys are packed, however, you must use the 
same number of characters as contained in the ac- 
tual keys. If you use fewer characters, the program 
ignores the remaining characters in the record key. 
The number of characters used in the FROM and 
TO parameters need not be the same. 


For example, assume that the following area con- 
secutive record keys in an index: 99999, A1000, 
A1119, A1275, A1900, A1995, and A2075. The 
parameters, FROM-‘A1‘ and TO-’A199’ refer to 
record keys A1000 through A1995. 


If none of the keys in the file index begin with the 
characters you indicate in a FROM parameter, the 
program uses the key beginning with the next 
higher characters in the FROM parameter. 


For example, assume that four consecutive record 
keys in an index begin with these characters: A1, 
A2,A8, and B1. The parameters FROM-‘A3‘ and 
TO-‘A9‘ would refer to keys beginning with the 
characters A8. 


SELECT RECORD Parameters (SELECT) 


The SELECT RECORD parameters can apply to any 
file, but are normally used for sequential and direct 
files. These parameters use relative record numbers 
to identify the records to be printed. 


Relative record numbers identify a record’s location 
with respect to other records in the file. The rela- 
tive record number of the first record is 1, the 
number of the second record is 2, and so on. 


The SELECT RECORD parameters are FROM and 
TO. The FROM parameter (F ROM-number) gives 
the relative record number of the first record to 

be printed. The TO parameter (TO-number) gives 
the number of the last record to be printed. Records 
between those two records in the file are also 
printed. 


For example, the parameters FROM-1 and TO-30 
mean that the first thirty records (1-30) in the 
file will be printed. 


You can omit the TO parameter. If you do, the 
program assumes that the number of the last re- 
cord in the file is the TO number. If you want 
to print only one record, use the same number in 
the FROM and TO parameters. 


COPYING MULTIVOLUME FILES 


When copying multivolume files the first volume 
of the input file has to be online when the job is 
initiated. The output file must be a new file. If 
either condition is not satisfied, a halt occurs. 


Maintaining Proper Volume Sequence Numbers 


To maintain proper volume sequence numbers 
when copying a multivolume file, you must either 
copy all the volumes of the file in one run or copy 
only one volume for each run of $COPY. For 
example, if you copy a 3-volume file one volume 
at a time (volume 1 in the first run, volume 2 in 
the second run, and volume 3 in the third run), 
the volumes will retain their original sequence 
numbers in the output file. Or if you copy all the 
volumes (1, 2, and 3) in the same run, the volume 
sequence numbers in the new file will be the same 
as in the original file. However, if you copy only 
volumes 2 and 3 in one run, their volume sequence 
numbers will be changed to 1 and 2 in the output 
file. 


Maintaining Correct Relative Record Numbers 


To maintain correct relative record numbers when 
copying one volume of a multivolume direct file, 
the size of the output volume must be the same as 
the size of the input volume. (If you want to in- 
crease the size of a file, you must copy the entire 
file.) If you copy the first volume of a 2-volume 
file and increase the number of records on that 
volume, you are also increasing relative record num- 
bers of all the records on the next volume. There- 
fore, to maintain the correct relative record numbers, 
output and input volume extents must be equal if 
you are copying only one volume of a multivolume 
direct file. 


Direct File Attributes 


If you copy an entire multivolume direct file in one 
run, the output file will be given consecutive attri- 
butes in the Volume Table of Contents (VTOC). 
However, this does not effect file processing. A file 
with either consecutive or direct attributes can be ac- 
cessed by a consecutive or direct access method. If 
only one volume is copied, the direct attribute will 
be maintained. 


Copying Multivolume Indexed Files 


If you want to copy a multivolume file, REORG- 
YES must be given in the FILE statement. Since 
an unordered load to a multivolume indexed load 

is not permitted, a REORG-NO will cause a halt if 
an out of sequence record is encountered. If you 
would prefer not to reorganize the file, it must be 
copied one volume at a time. When copying one 
volume at a time, the HIKEY on the output volume 
must be the same as the HIKEY on the input vol- 
ume. Making the HIKEYs the same will ensure 
that both the input and output volumes are the 
same length and no records will be lost. When copy- 
ing one volume of a multivolume index file, either 
REORG-YES or REORG-NO may be specified. 


OCL CONSIDERATIONS 


The following OCL statements are needed to load 
the Disk Copy/Dump program, if you are using 
the program to copy an entire disk. 


// LOAD $COPY,code 
// RUN 


The code you supply depends on the location of 
the disk containing the Disk Copy/Dump program. 
The codes are as follows: 


Code Meaning 

R1 Removable disk on 
drive one 

F 1 | Fixed disk on drive 
one[ 

R2 Removable disk on 
drive two 

F2 Fixed disk on drive 
two 
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If you are copying or printing files you must (1) 
describe the disk files being copied or printed and 
(2) describe the file being created. To do this, 

the following OCL statements are needed in the load 
sequence: 


// LOAD $COPY ,code 
// FILE NAME-COPYIN,UNIT-code, PACK-diskname, LABEL-filename 
// FILE NAME-COPYO, UNIT-code, PACK-diskname, LABEL-filename, 


// TRACKS-number 
RECORDS-number 


// RUN 


\ ,RETAIN-code 


Statement 
Entry Considerations 


Statement 
Entry 


// LOAD // FILE 


$COPY Name of Disk Copy/Dump NAME-COPYO 
program. 


Location of disk con- 
taining Disk Copy/Dump 
program. Can be R1, R2, 
F1, F2. 


UNIT-code 


// FILE PACK-diskname 

NAME-COPYIN Name Disk Copy/Dump 
program uses to refer to 
file to be copied (input 
file). 


LABEL-filename 


UNIT-code Location of disk containing 
file to be copied. Can be 
R1, R2,F1 F2, D1, D2. 


TRACKS-number 
RECORDS-number 


PACK-diskname Name of disk containing 
file to be copied. 


LABEL-filename Name by which file to be 
copied is identified on disk. 


RETAIN-code 
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Considerations 


Name Disk Copy/Dump 
program uses to refer to 
output file being created. 


Location of disk on which 
output file is to be created. 
Can be R1, R2, F1, F2, 

D1, D2. 


Name of disk on which 
output file is to be identi- 
fied on disk. 


Name by which output 
file is to be identified on 
disk. 


Size of output file ex- 
pressed either as number 
of records (RECORDS) 
or number of disk tracks 
(TRACKS). 


Designation (temporary, 
permanent, or scratch) 

of output file. Can be 
T, P, or S. 





EXAMPLES 
Figures 38-43 are three examples of the OCL state- 
ments and utility control statements needed to 
(1) copy an entire disk, (2) copy a file from one 
disk to another and (3) print part of a file. Each 
of the three examples has two figures. 





Explanation: 
Explanation: 

@ The contents of the fixed disk on drive two (FROM-F2 in 
® The Disk Copy/Dump program is loaded from the fixed disk on COPYPACK statement) is copied onto the removable disk on 

drive one. drive two (TO-R2). 

Figure 38. OCL Load Sequence for Copying an Entire Disk Figure 39. Utility Control Statements for Copying an Entire Disk 
1 4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 
Vee ee GeO AIS CA Ge See eae as te RCE ae Ee E SIRS lalallala 
/V| Liowp| BicoPN Fi TTT TTT EEE EEE 
/\/| (FV LIe| NAME FICO IN, [UIN|t IT|-[E/2), PIAIciK|-[Alt), LINBEILIMASITIER! [1] TT TTT Tt Titi tt tt 
/\/| JFUNILIE] INIAME|-|CO}PIV/0]>JIN|tIT-IRit}s IP IAICiK/-[Bi2), ILIAIBIEILI- [BIA IKIUIP| » TRINCIKISI-ISI@ REMAN NI-PI | | {| {tt 
VV RMN EEE EEE 
RRRCERAERRERAR PRT ATER ER ERE PARE TERRA AER EER R ERE RR ERT REET ERAS SERA eR ERE 
Sue eee eto See oI eC ee era eer et tka 
Explanation: : 


® Disk Copy/Dump program is loaded from fixed disk on drive one. 


@ Input file (OCL sequence): 
1. Name that identifies file on disk is MASTER (LABEL-MASTER). 
2. Disk that contains the file is the fixed disk on drive one (UNIT-F1). 
Its name is A1 (PACK-A1). 


® Output file (OCL sequence): 
1, Name to be written on disk to identify the file is BACKUP (LABEL-BACKUP). 
2. Disk that is to contain the file is the removable disk on drive one (UNIT-R1). 
Its name is B2 (PACK-B2). 
3. The file is to be permanent (RETAIN-P). 
4. The length of the file is 50 tracks (TRACKS-50). 


Figure 40. OCL Load Sequence for Copying a File from One Disk to Another 
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file using all the data from the input file. The output file isa 


copy of the input file. 
Figure 41. Utility Control Statements for Copying a File from One Disk to Another 


@® The COPYFILE statement tells the program to create the output 


Explanation: 
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keys from ADAMS to BAKER in the index (SELECT statement). 


@ The file is an indexed file. The part being printed is identified by the record 
Figure 43. Utility Control Statements for Printing Part of a File 


@ The file is being printed (COPY FILE statement). 


Explanation: 


114 


LIBRARY MAINTENANCE PROGRAM 
ae EE 


The Library Maintenance program has four functions: 
Function Meaning 


Allocate Create (reserve space for), delete, re-organize, and 
change the sizes of libraries. 


Copy Place entries in, and display the contents of, libraries. 
Delete Delete library entries. 
Rename Change the names of library entries. 


The control statements you must supply depend on the function you are using. 


LIBRARY DESCRIPTION 
The source library is an area on disk for storing procedures and source statements. 
Procedures are groups of OCL statements used to load programs. The statements 
can be followed by input data for the programs. (Procedures for utility programs 
can, for example, contain utility control statements.) Source statements are sets 
of data, the most common of which are RPG II source programs and Disk Sort 
sequence specifications. 


The object library is an area on disk for storing object programs and routines. Object 
programs are programs and subroutines in such a form that they can be loaded for 
execution. (They are sometimes called executable object programs.) Routines are 
programs and subroutines that need further translation before being loaded for 
execution. (They are sometimes called nonexecutable object programs.) 


Location of Libraries on Disk 


Libraries can be located anywhere on disk. However, the location of a source 
library with respect to an object Jibrary is always the same: 


{ 
fees Source Library Object Library | User Area 





4 


- Track 0 Upper Boundary 


The boundaries of a source library are fixed. They can be changed only by the 
allocate function of the Library Maintenance program. The upper boundary of an 
object library, however, can be moved as additional space is needed when entries 

are placed in the library. This happens only if space is available following the library 
and if the entries being placed beyond the normal boundary are not permanent 
entries. 
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Organization of Library Entries 


Object Library 


Entries are stored in the object library serially; that is, a 20-sector program occupies 
20 consecutive sectors. Temporary entries follow all permanent entries in the object 
library. 


If necessary, the upper boundary is changed to allow more space for temporary 
entries. But when a permanent entry is placed in the library or the library is. 
reorganized, all temporary entries are deleted and the upper boundary returns to 
its original location. Permanent entries cannot exceed the original upper boundary. 


Gaps can occur in the object library when a permanent entry is deleted and replaced 
with a permanent entry using fewer sectors. The Library Maintenance program scans 
the library to see what sectors are available. The entry is then placed into the gap 
that has the fewest sectors over and above the number required by the new entry. 

If the entry is the same size, no sectors are lost, but all'temporary entries are deleted. 


If the number of unusable sectors becomes excessive, the library should be re- 
organized. In reorganizing entries, the Library Maintenance program deletes 
temporary entries and shifts entries so that gaps do not appear between them. This 
makes more sectors available for use. 


Source Library 


The source library differs from the object library in that entries within the source 
library need not be stored in consecutive sectors. An entry can be stored in many 
widely separated sectors with each sector pointing to the sector that contains the 
next part of the entry. When an entry is placed in the source library, it is placed in 
as many sectors as required regardless of where the sectors are located within the 
library. 


The boundary of the source library cannot be expanded; therefore, an entry must 
fit within the available library space. To provide as much space as possible with- 

in the prescribed limits of the source library, the system compresses entries. That 
is, all duplicate characters and blanks are removed from entries. Later, if the entries 
are printed or punched, the duplicate characters and blanks are re-inserted. 


When the size of the source library is changed or the source library is reorganized, 
all temporary entries are deleted. 


Library Directories 


The program creates a separate directory for each library. Every library entry has a 
corresponding entry in its library directory. The directory entry contains such infor- 
mation as the name and location of the library entry. The first character of a 
directory name must be an alphabetic character. Maximum length is six characters. 
The program also creates a system directory, which contains information about the 
size and available space in libraries and their directories. 


Organization of this Section 


The four functions of the Library Maintenance programs are described separately. 
Every description contains the following: 


1. List of specific uses. 


2. Control statement summary indicating the form of control statement needed 
for each use. 


3. Parameter descriptions explaining, in detail, the contents and meanings of the 
parameters. 


4. Function descriptions explaining the details of each function. 
Following the function descriptions are: 
1. OCL considerations 


2. Examples 
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ALLOCATE FUNCTION 


ALLOCATE USES 


Create (reserve space for) libraries. 











Change the sizes of libraries. 
Delete libraries. 


Reorganize libraries. 


ALLOCATE CONTROL STATEMENT SUMMARY 










|| ALLOCATE TO-code,SOURCE- re ,OBJECT- tae SYSTEM- es ,DIRSIZE-number WORK-code 





Use (1) Parameter Needed @) 





Create TO-code, SOURCE-number WORK-code 2) 















Source Change Size TO-code,SOURCE-number,WORK-code 
Library 
Delete TO-code,SOURCE-O 


Reorganize TO-code,SOURCE-R,WORK-code 





Create TO-code,OBJECT-number,SYSTEM- ve 
Object Change Size TO-code,OBJECT-number,WO RK-code 
Library 

Delete TO-code,OBJECT-0O 








Reorganize TO-code,OBJECT-R,WORK-code 


@) You can indicate a source library use, any object library use, or uses involving both libraries (for example, deleting the source 
library and changing the size of the object library). 





if you are indicating uses for both libraries, use only one TO parameter. (The libraries must be on the same disk:) Also, use 
only one WORK parameter if both uses require a WORK parameter. 


@) The WORK parameter is needed only if the disk contains an object library that you are not deleting. 
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Library Maintenance Allocate Restrictions 
This program has restrictions and operating condi- 
tions that the user must be aware of when maintain- 
ing libraries. 


Limit of Four Allocations 
The system control program allows no more than 
four allocations of disk space per job. Each 
ALLOCATE statement that requires additional 
space (create, increase size) counts as one allocation. 
The WORK parameter also counts as one allocation 
(see WORK Parameter). For example, creating a 
source library ona disk that already contains an 
object library would require two allocations (a work 
area is needed), but deleting an object library would 
require no allocations. 


Removing Temporary Entries 
When a library is reorganized, its size is changed, or 
it is moved, all temporary entries in that library are 
deleted. This applies to both the source and object 
libraries. 


Library Restrictions 
The Allocate function cannot reference the libraries 
on the pack from which the Library Maintenance 
Program or the system was loaded. For example, if 
the system was loaded (IPL) from F1 and the Library 
Maintenance Program was loaded from R11, the source 
or object libraries on F1 and R1 cannot be referenced 
on an ALLOCATE statement. 


Moving the Object Library 
When allocating or reallocating the source library on 
a pack that contains an object library, the object 
library is reorganized and all temporary entries are 
deleted. 


ALLOCATE PARAMETER SUMMARY 


TO-code 


SOURCE-number (no 
source library) 


SOURCE-number (source 
library already on disk) 


SOURCE-R 


OBJECT-number (no 
object library on disk) 


OBJECT-number (object 
library already on disk) 


OBJECT-R 


DIRSIZE-number 


SYSTEM-NO 


SYSTEM-YES 


WOR K-code 


Location of disk you are using. 
Possible codes are R1, F1, R2, 
and F2. 


Create asource library. Number 
indicates the number of tracks 
you want to assign. 

Delete or change the size of the 
source library. Use depends on 
number: 

Number Use 


0 Delete 


Any number 
but zero 


Change size 


Reorganize the source library. 
Create an object library. Number 
indicates the number of tracks 
you want to assign. 

Delete or change the size of the 
object library. Use depends on 
number: 

Number Use 

0 Delete 


Any number 
but zero 


Change size 


Reorganize the object library. 


Number of tracks you want for 
the directory when creating, re- 
allocating, or reorganizing the 
object library. 


Assign one track to object library 
directory. Object library directory 
will not be large enough to contain 
system program entries. 


Assign three tracks to object 

library directory. Object library 
directory will be large enough to 
contain system program entries. 


Location of disk containing space 
the program can use as a work area. 
Possible codes are R1, F1, R2, or 
F2. 
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TO Parameter 


The TO parameter (TO-code) indicates the location 
of the disk that contains, or will contain, the library. 
If the program use involves both libraries, the 
libraries must be on the same disk. The TO para- 
meter cannot be the same unit from which the 
librarian or system is loaded. 


Codes for the possible locations are as follows: 


Code Meaning 

R1 Removable disk on 
drive one 

F1 Fixed disk on drive 
one 

R2 Removable disk on 
drive two 

F2 Fixed disk on drive 
two 


SOURCE and OBJECT Parameters 


These parameters identify library uses: 
Parameter Use 


SOURCE-number e if the disk contains 

OBJECT-number no library, parameter 

(number is not zero) means create a library. 
Number is the number 
of tracks you want to 
assign to the library. 


e@ If the disk contains a 
library, parameter 
means change the 
library size. Number 
is the number of tracks 
you want to assign to 


the library. 
SOURCE-0 Delete the library. 
OBJECT-O 
SOURCE-R 


Reorganize the library. 
OBJECT-R : 


DIRSIZE Parameter 


The DIRSIZE parameter allows the user to specify 
the size of the object library directory. The number 
of tracks specified (1-9), overrides the SYSTEM 
parameter in determining directory size. Each track 
can contain 288 directory entries. One entry is 
needed for the directory, so the formula for the 
number of entries in a directory is (t x 288)-1, where 
t is the number of tracks. If the DIRSIZE parameter 
is omitted, the SYSTEM parameter determines the 
directory size. 


SYSTEM Parameter 


The SYSTEM parameter applies to creating, chang- 
ing the size of and reorganizing object libraries. It 
tells the program whether you intend to include 
system programs in the library. If system programs 
are to be included, a scheduler work area must be 
assigned and the directory must be large enough for 
all those system programs necessary for program 
loading and running (minimum system), and those 
necessary for generating and maintaining a system. 


Space for the scheduler work area is assigned imme- 
diately preceding the object library. If the disk con- 
tains a source library, the work area is between the 
source and object libraries. For information about 
the size of the scheduler work area, see Scheduler 
Work Area Size. 


The following charts show the results of coding the 
SYSTEM parameter for different allocate users. 


Creating an Object Library 


Parameter Scheduler Work Area Directory Size* 
SYSTEM-YES Created Three Tracks 
SYSTEM-NO Not Created One Track 
not coded Not Created One Track 


*The directory size is overridden if the DIRSIZE 
parameter is coded. 


Changing the Size of or Reorganizing an Object Library 
That Contains System Programs 


Parameter Scheduler Work Area Directory Size* 


SYSTEM-YES Retained Not Changed 
SYSTEM-NO Removed Not Changed 
not coded Retained Not Changed 


*The directory size is overridden if the DIRSIZE 
parameter is coded. 


Changing the Size of or Reorganizing an Object Library 
That Does Not Contain System Programs 


Parameter Scheduler Work Area Directory Size* 


SYSTEM-YES Created Not Changed 


SYSTEM-NO Not Created Not Changed 


not coded Not Created Not Changed 


*The directory size is overridden if the DIRSIZE 
parameter is coded. 


WOR K Parameter 


The WORK parameter (WORK-code) indicates the 
location of the disk that contains a work area. 
Library entries are temporarily stored in the work 
area while the program moves and reorganizes 
libraries. 


Codes for the possible disk locations are as follows: 


Code Location 

R1 Removable disk on drive 1. 
F1 Fixed disk on drive 1. 

R2 Removable disk on drive 2. 
F2 Fixed disk on drive 2. 


When the WORK parameter is coded on an ALLO- 
CATE statement, an additional disk allocation is 
used. This is included in the limit of four allocations 
per job (see Limit of Four Allocations). 


Size of the Work Area 


The work area must be large enough to hold the 
entire source library, object library, or both libraries 
depending on the program use. If you are combin- 
ing uses, such as changing the sizes of both libraries, 
the work area must be large enough to hold the 
contents of both libraries. 


Use Contents of Work Area 
Create a source Object library. 
library (disk con- 


tains an object 
library). 


Change source Source library and object 
library size (disk library. 

contains an ob- 
ject library). 
Change source > Source library. 
library size (disk 

doesn’t contain 

an object library). 


Reorganize Source library and object 
source library library. 

(disk contains an 
object library). 
Reorganize Source library. 
source library 
(disk doesn’t con- 
tain an object 
library). 

Change object Object library. 
library size. 


Reorganize 
object library. 


Object library. 


Location of Work Area on Disk 


The program uses the first available disk area large 
enough to hold the library, or libraries. 


Location of Disk Containing the Work Area 


The work area can be on either disk on either drive. 
However, it cannot be the same disk as the one you 
specified in the TO parameter. The only require- 
ment is that the disk must have an available area 
large enough for the work area. If your system has 
two disk drives, the program works faster if the disk 
containing the libraries is on a different drive than 
the disk containing the work area. 
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Using the Allocate Function 
Creating a Source Library (SOURCE-number) 


Source Library Size 
e Minimum: One track. 


e Maximum: Number of tracks in the available 
area. 


e Regardless of the number of tracks you specify, 
the first two sectors\of the first track are assigned 
to the library directory. Additional sectors are 
used as needed for the directory. 


Placement of Source Library (Disk With an Object 
Library) 

@ The source library must immediately precede the 
object library. A disk area large enough for the 
source library must follow the object library 
because the program moves the object library to 
make room for the source library (Figure 44). To 
do this, it needs a work area. (See WORK para- 
meter) The object library is reorganized and all 
temporary entries are deleted. 


e@ If you allocate a source library after deleting it, 
the program automatically moves the object 
‘library to make room for the source library. The 
starting location of the source library is the pre- 
vious starting location of the object library. 


Disk Space Before Creating Source Library 


Object Library | Available Space | Customer 
(30 tracks) (15 tracks Files 
| 0-7 |. 8- 37 ——>}«— 38-52 —| 


Tracks 





Disk Space After Creating Source Library 





Available Customer 


Files 


Source 
Library Space 
(5 tracks) (10 tracks) 


8-12 |.—13.42 wil eceggiga es 


Tracks 















Object Library 
(30 tracks) 












| 0.7 


Figure 44. Moving Object Library to Insert Source Library 
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Placement of the Source Library (Disk Without an Object 
Library). The program assigns the source library to 
the first available disk area large enough for the 
library. 


lf you allocate a source library after deleting it, the 
source library is assigned the same way. 


Changing the Size of a Source Library 
Any time the program changes the source library 
size, it reorganizes both the source and object 
libraries and deletes all temporary entries. (See 
Reorganizing a Source Library.) To do this, it needs 
a work area. (See WORK parameter.) 


Making the Source Library Larger 
e If the disk contains an object library space must 
be available immediately following the object 
library. The program moves the object library to 
make tracks available at the end of the source 
library (Figure 45). 


e If the disk does not contain an object library, 
space must be available immediately following 
the source library. 


Disk Before Tracks Are Added to Source Library 


Source 
Library Library 
(10 tracks) | (30 tracks) 


|o7| 822 LX 19.47 >| 


Tracks 


Object 


Available | Customer 
Space Files 
(15 tracks) 





48-62 


Disk After Five Tracks Are Added to Source Library 


Object 
Library 


Source 
Library 


Available Customer 
Space Files 
(15 tracks) 


(10 tracks) | (30 tracks) 





| 18.47 | 


Tracks 


| o7| 8-22 48-62 


Figure 45. Increasing Source Library Size 


Making the Source Library Smaller Reorganizing a Source Library (SOURCE-R) 
e If the disk contains an object library, the program 


moves the end location of the source library to 


make the library smaller. The object library is Reason for Reorganizing the Library. Areas from which 
moved and space becomes available following the source library entries are deleted are completely re- 
object library. (Figure 46) used for new entries. If an entry exceeds the space 
in such an area, the program puts as much of the 
e If the disk does not contain an object library, the entry as will fit in the area and continues the entry 
program moves the end location of the source in the next available area. In this way, the program 
library to make the source library smaller. efficiently uses library space. This can, however, 


decrease the speed at which those entries can be 
read from the library. Therefore, if you frequently 
Disk Before Source-Library Size Was Decreased add and delete source library entries, you should 
reorganize your source library periodically. 





Source Object Customer 

Library Library Files 

(15 tracks) (30 tracks) Reorganizing the Library. The program relocates entries 
0.7 L_ 3.99 | 93.59 | so that no entry is started in one eara and continued 


aig in another. All temporary entries are deleted. The 
program needs a work area. (See WORK parameter.) 


Disk After Five Tracks Were Taken From Source Library 







Creating an Object Library (OBJECT-number) 







Source 
Library 
(10 tracks) 












Object 
Library 
(30 tracks) 





Available 
Space 
(5 tracks) 


Customer 
Files 





Object Library Size 
@ Minimum: 30 tracks, including the directory 
tracks, if the object library is to contain a mini- 
Figure 46. Decreasing Source Library Size mum system; otherwise, the minimum is three 
tracks including the directory tracks. A minimum 
system is made up of those system programs 


[0-7] 817 [1847-4] 48-52 


Tracks 


Deleting a Source Library (SOURCE-O) necessary to load and run programs. It does not 
The program makes the disk area occupied by the include system PROGraims: NECessah Vt Generates 
source library available for other use (disk files). and maintain a system. 

(Figure 47) 


@ Maximum: Number of tracks in available area. 


Disk Before Source Library Deleted e Library Directory: The first three tracks in the 
library are reserved for the library directory if the 
library is to contain system programs; otherwise, 
only the first track is used. If the DIRSIZE para- 
meter is entered, the directory size specified is 
used. 















Source 
Library 
(15 tracks) 


Customer 
Files 


Object Library 
(30 tracks) 





lo-7 be 8.22 —>|«——. 23.52 —>| 


Disk After Source Library Deleted 











Available 
Space 
(15 tracks) 


| 0-7 |_-e.29 fa ees 23-52 an 


Figure 47. Deleting Source Library 






Object Library 
(30 tracks) 


Customer 
Files 
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e Scheduler Work Area: If the library is to contain 
system programs, the space available on the pack 
must be large enough to contain a work area for 
the Scheduler program (one of the system pro- 
grams). The work space is not included in the 
number you specify in the OBJECT parameter; 
the space is calculated and assigned by the Library 
Maintenance program. The amount of space 
needed depends on whether DPF (Dual Program- 
ming Feature) and/or the inquiry feature is on the 
system. For non-DPF systems, two tracks are 
needed; for DPF systems, four tracks are needed. 
The inquiry and checkpoint/restart features 
require additional tracks for a Roll-in/Roll-out 
area. The number of tracks needed depends on the 
main storage size of the system. 


Main Storage Size Roll-in/Roll-out Tracks 
12K 4 
16K 5 
24K 6 
32K 7 
48K 10 
64K 13 


Placement of Object Library (Disk With a Source Library). 
Space for the object library must be available immed- 
iately following the source library. 


Placement of Object Library (Disk Without a Source 
Library). The program assigns the object library to 
the first available disk area that is large enough. 
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Changing the Size of an Object Library (OBJECT-number) 


Making the Library Larger. The number of tracks you want 
to add must be available immediately following the 
object library. The program assigns the additional 
tracks to the library. (The starting location of the 
library remains unchanged.) 


Making the Library Smaller. The program moves the end 
location of the object library to decrease the library 
size. Tracks, therefore, become available following 
the library. 


Reorganizing the Library. Any time the program changes 
the library size it also reorganizes the library and 
deletes all temporary entries. (See Reorganizing an 
Object Library.) To do this, it needs a work area. 
(See WORK parameter.) 


Deleting an Object Library (OBJECT-O) 
The program makes the disk area occupied by the 
object library (and the scheduler work area if this 
was a system pack) available for other use. 


Reorganizing an Object Library (OBJECT-R) 
Gaps can occur between object library entries when 
you add and delete entries. By reorganizing the 
library, these gaps are removed. When the library is 
reorganized, all temporary entries are deleted. A 
work area is needed. (See WORK parameter.) 


COPY FUNCTION 


COPY USES 


Reader-to-Disk @ Add or replace a library entry. The reader is the system input device, which can be either 
the keyboard or a card reader. 





@ Copy one library entry (or those entries with the same name from all libraries). 
e Copy library entries that have names beginning with certain characters. 
Disk-to-Disk @ Copy all library entries. 


e Copy minimum system. 


e Copy minimum system. 


@ Print one library entry (or those entries with the same name from all libraries). 


e@ Print all library entries of a certain type. 
Disk-to-Printer 
e@ Print directory entries for library entries of a certain type. 
e Print entries from all directories including system directory. 
e@ Print system directory only. 
@ Punch one library entry (or those entries with the same name from all libraries). 
Disk-to-Card e Punch library entries that have names beginning with certain characters. 
@ Punch all library entries of a certain type. 
e@ Print and punch one library entry (or those entries with the same name from all libraries). 


Disk-to-Printer 


and-Card @ Print and punch library entries that have names beginning with certain characters. 


e Print library entries that have names beginning with certain characters. 


e@ Print and punch all temporary or permanent library entries of a certain type. 


Library Maintenance Program 125 


COPY CONTROL STATEMENT SUMMARY: READER-TO-DISK 


Add or Replace a Library Entry 


T 
// COPY FROM-READER,LIBRARY- sNAME-name,TO-code,RETAIN- < P 


R 


Library Entry 


//CEND «@ Must always follow the source or object statement being placed into 
the source or object libraries. 


COPY CONTROL STATEMENT SUMMARY: DISK-TO-DISK 


Copy One Library Entry (or Entries with the Same Name from All Libraries) 





+ 
/f COPY FROM-code,LIBRARY- *NAME-name,TO-code,RETAIN-< P NEWNAMEReROD 
R 
ALL 


Copy Library Entries that Have Names Beginning with Certain Characters 


+ 
/1 COPY FROM-code,LIBRARY- )NAME-characters.ALL,TO-code,RETAIN- < P 7 .NEWNAME-characters.ALL 
R 


Copy All Library Entries 


+ 
// COPY FROM-code,LiIBRARY- WNAME-ALL,TO-code,RETAIN- < P 
R 

LL 


Copy Minimum System 


// COPY FROM-code,LIBRAR Y-O,NAME-SYSTEM,TO-code 


(1) NEWNAME parameter is needed in either of the following cases: 
if you want the copy to have a different name than the original entry. 
If you want to replace an entry on the TO disk with an entry from the 
FROM disk, but the entries have different names. 
lf you want the names of the copies to begin with different characters 
than the names of the original entries, the same number of characters 
must be in the NEWNAME parameter as in the NAME parameter. 
if the FROM and TO packs are the same pack, NEWNAME cannot be 
DIR, ALL, or SYSTEM. 
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COPY CONTROL STATEMENT SUMMARY: DISK-TO-PRINTER-AND/OR-CARD 


Print and/or Punch One Library Entry (or Entries with the Same Name from All Libraries) 


S 

Pp PUNCH 
// COPY FROM-code,LIBRARY-< 6 WNAME-name,TO,¢ PRINT 

R PRTPCH 

ALL 


Print and/or Punch Temporary and Permanent Library Entries that Have Names Beginning with 
Certain Characters 


S 

P PUNCH 
/{ COPY FROM-code,LIBRARY-< O )NAME-characters,ALL,TO- ¢ PRINT 

R PRTPCH 

ALL 


Print and/or Punch All Temporary and Permanent Library Entries of a Certain Type 


: PUNCH 
/1 COPY FROM-code,LIBRARY- \NAME-ALL,TO-< PRINT 
PRTPCH 


Print Directory Entries for Library Entries of a Certain Type 


[1 COPY FROM-code,LIBRARY- »#NAME-DIR,TO-PRINT 


S 
P 
O 
R 
Print Entries from All Directories Including System Directory 


// COPY FROM-code,LIBRARY-ALL,NAME-DIR,TO-PRINT 


Print System Directory Entries Only 


// COPY FROM-code,LIBRARY-SYSTEM,NAME-DIR,TO-PRINT 


Print Directory Entries, Omitting Selected Entries 


Ss 
name 
// COPY FROM-code,LIBRARY- < O )NAME-DIR,TO-PRINT,OMIT- 
R CHARACTERS.ALL 
ALL 
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COPY PARAMETERS 





FROM-READER 


FROM-code 


P| 
LIBRARY- ( 


xaOvU 


LIBRARY-ALL 
LIBRARY-SYSTEM 


name 
NAME- < characters.ALL 
ALL 


NAME-SYSTEM 


NAME-DIR 


NAME-$cc.ALL 


Entry to be placed in library is to be read from system input device, which 
can be a keyboard or card reader. 


Location of disk containing library entries being copied, printed, or punched. 
Possible location codes are: 


Code Meaning 

R1 Removable disk on drive one 
F1 Fixed disk on drive one 

R2 Removable disk on drive two 
F2 Fixed disk on drive two 


Type of library entries involved in copy use. Possible codes are: 


Code Meaning 

S Source statements (source library) 
P OCL procedures (source library) 
O Object programs (object library) 
R Routines (object library) 


All types of entries (S, P, O, and R) from both libraries are involved in copy use. 


Only system directory entries are being printed. 


Specific library entries on the FROM pack, of the type indicated in LIBRARY 
parameter, involved in copy use. Possible information is: 


Information Meaning 
name Name of the library entry involved. 


characters.ALL Only those entries beginning with the indicated characters. 
The names of the copies and original entries will be the 
same unless you use a NEWNAME parameter (NEWNAME- 
characters). (You can use up to five characters.) 


ALL All entries. (The type indicated in LIBRARY parameter.) 


Only system programs that make up the minimum system are involved in the 
copy use. The minimum system is made up of system:programs necessary to 
load and run programs. System programs necessary to generate and maintain 
the system are not included. 


Directory entries for all library entries of the type indicated in the LIBRARY 
parameter are involved in the copy use. If the LIBRARY parameter is 
LIBRARY-ALL, system directory entries are also printed. 


The IBM program with the name beginning with the indicated characters ($cc) 
is involved in the copy use. For example, $MA.ALL means the Library 
Maintenance program ($MAINT). 


+ 
RETAIN- < P 
R 


TO-code 


TO-PRINT 


TO-PUNCH 


TO-PRTPCH 


NEWNAME-name 


NEWNAME-characters. 


OMIT-name 


OMIT-characters. ALL 


Adding Entry to Library. RETAIN gives designation of the TO entry: 


Code Meaning 
T Temporary 
PorR Permanent 


Replacing Existing Library Entry. RETAIN gives designation of the TO entry and 
tells program whether to halt before replacing entry: 


Code Meaning 
T Temporary designation. Halt before replacing entry. 
P Permanent designation. Do not halt before replacing entry. 
R Permanent designation. Do not halt before replacing 
entry. 


Printing or Punching Entries. The RETAIN parameter is ignored. 


Location of disk that is to contain the copies of the entries: 


Code Meaning 

R1 Removable disk on drive one 
F1 Fixed disk on drive one 

R2 Removable disk on drive two 
F2 Fixed disk on drive two 


Entries are being printed. 

Entries are being punched. 

Entries are being printed and punched. 

Name you want used on the TO disk to identify the entries being put on that 
disk. If you omit this parameter, the program uses the NAME parameter in 
naming the entries. 

Beginning characters you want to use in names identifying entries being put 
on TO disk. You must use the same number of characters as in the NAME 
parameter (NAME-characters.ALL). If you omit this parameter, the program 
uses the NAME parameter in naming the entries. 


When printing directory entries, omit the entry specified by name. 


When printing directory entries, omit all entries with these beginning 
characters. 
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Library Directories 


Source and Object Library Directories 
@ The source and object libraries have separate 
library directories. Every library entry has a 
corresponding entry in its library directory. The 
directory entry contains such information as the 
name and location of the library entry. (See 
Figures 48-50) 


e The Library Maintenance program makes entries 
in the directories when it puts entries in the 
libraries. 


System Directory 
e Every disk that contains libraries contains a 
system directory. The system directory contains 
information about the sizes of and available 
space in libraries and their directories. (See 
Figures 48-50) 


e The Library Maintenance program creates and 
maintains the system directory. 


Naming Library Entries 


Characters to Use. Use any combination of System/3 
characters except blanks, commas, quotes, and 
periods. (Appendix A lists the characters.) The 
names of all IBM programs begin with a dollar sign 
($). Therefore, to avoid possible duplication, do not 
use a dollar sign as the first character in the names 
you use for your entries. The first character must be 
alphabetic. 


Length of Name. The name can be from one to six 
characters long. 


Restricted Names. Do not use the names ALL, DIR, and 
SYSTEM. They have special meanings in the NAME 
and NEWNAME parameters. 
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Entries with the Same Name. For each of the two physical 
libraries, source and object, there are two types of 
entries. The source library has type P and type S 
entries. The object library has type O and type R 
entries. Entries of the same type cannot have the 
same name, but entries of different types may. For 
example, two procedures in a source library cannot 
have the same name, but a procedure and a set of 
source statements can. 


Retain Types 


Temporary Entries | 
@ Temporary entries are entries you do not intend 
to keep in your libraries. They are normally used 
only once or a few times over a short period. 


@ Inthe object library, temporary entries are placed 
together following the permanent entries. Any 
time a permanent entry is added to the library, all 
temporary entries are deleted. Temporary entries 
are also deleted when you replace one permanent 
entry with another. 


e Inthe source library, temporary and permanent 
entries can be in any order. One entry is placed 
after another regardless of their designations. 
Temporary entries, therefore, are not automatically 
deleted every time you add a permanent entry. 
However, when the source library is reallocated or 
reorganized, only permanent entries will remain. 


@ You can use temporary entries as often as you 
like until they are deleted. 


e Atemporary entry cannot replace a permanent 
entry. 


Permanent Entries 
e Permanent entries are entries you intend to keep 
in your libraries. They are normally entries you | 
use often or at regular intervals (once a week, 
once a month, and so on). 


e@ The program will not delete permanent entries 
unless you use the delete function of Library 
Maintenance to delete them, or the allocate 
function to delete the entire library. 


Using the Copy Function 


Reader-to-Disk 


Input. The program reads one library entry. It can be any 


one of the following types: 

1. Source statements 

2. Procedure 

3. Object program 

4. Routine 

The entry is read from the system input device, which 
is normally the primary hopper of the MFCU. The 


operator can, however, change the system input 
device by using the OCL READER statement. 


Output 


e@ Blanks and duplicate characters are removed from 
source statements and procedures before they are 
put in the source library. The program does not 
check them for errors. 


e Object programs and routines are placed in the 
object library. 


Adding Entries 


e The program can add a new entry to a library. 
The name of the entry is taken from the NAME 
parameter. See Naming Library Entries for valid 
names. The RETAIN parameter specifies whether 
the entry will be temporary or permanent. If the 
RETAIN parameter is omitted, RETAIN-T is 
assumed. (see Retain Types) 


Replacing Existing Entries 


e The program can replace an existing library entry 
with the entry you are putting in the library. The 
RETAIN parameter specifies the new retain type. 
If the RETAIN parameter is omitted, RETAIN-T 
is assumed. A temporary entry cannot replace a 
permanent entry. 


@ The program can halt before replacing an existing 
entry. Whether it does depends on the RETAIN 
parameter you use. (see RETAIN parameter) 


e Before the new entry is added, the duplicate entry 
is deleted. Additional library space is not needed 
unless the new entry Is larger than the old one. 


Disk-to-Disk 


Input. The program can copy one or more library entries 
from one disk to another. The types of entries can 
be: 


1. Source statements 

2. Procedures 

3. Object programs 

4. Routines 

5. All the preceding types 
6. Minimum system 


The NAME and LIBRARY parameters specify which 
entries to copy. 


Output 
e@ The entries, regardless of their type, are copied 
from one disk to the other without change. How- 
ever, if all library entries are copied (LIBRARY- 
ALL,NAME-ALL), both the source and object 
libraries are reorganized and temporary entries 
become permanent entries in the new libraries. 


e Entries can be copied and renamed on the same 
disk by using the NEWNAME parameter. (see 
NEWNAME parameter and Naming Library 
Entries) 


e If you are copying a minimum system or all of 
the types, the disk you specify in the TO para- 
meter must not contain any entries. 


e The RETAIN parameter specifies whether the 
entries will be temporary or permanent. If the 
RETAIN parameter is omitted, RETAIN-T is 
assumed. When the parameters LIBRARY-ALL 
and NAME-ALL or LIBRARY-O and NAME- 
SYSTEM are used, RETAIN-P is assumed and 
RETAIN-T is invalid. 
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Adding Entries 
e You can omit the NEWNAME parameter. If you 
do, the name used for the copy is taken from the 
NAME parameter. (The copy will have the same 
name as the original entry.) 


e If NAME-ALL is specified, the names by which 
the entries are identified on the FROM disk are 
also used on the TO disk to identify the entries. 


Replacing Existing Entries 

e@ The program can replace existing entries with the 
entries you are putting in the library. If the entry 
you are copying (the entry on the disk you identi- 
fy in the FROM parameter) has the same name as 
the entry you are replacing (the entry on the disk 
you identify in the TO parameter), you must omit 
the NEWNAME parameter because the NEWNAME 
parameter cannot be the same as the NAME para- 
meter. If the names are not the same, you must 
use the NEWNAME parameter to give the name of 
the entry being replaced. 


@ The program can halt before replacing an existing 
entry. Whether it does depends on the RETAIN 
parameter. (See RETAIN parameter.) 


e A temporary entry cannot replace a permanent 
entry. 


Disk-to-Printer and/or Card 


Types of Entries that Can Be Printed or Punched 
e The program can print or punch one or more 
library entries. They can be any one of the 
following types: 
1. Source statements 
2. Procedures 
3. Object programs 
4. Routines 
5. All of the preceding types (limited to entries 


having the same name and entries beginning 
with the same characters) 
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@ The program can print (but not punch) the follow- 
ing types of directory entries: 


1. Source statements 

2. Procedures 

3. Object programs 

4. Routines 

5. System directory 

6. All of the preceding types 

The program will sort directory names before 
printing them only if there is available work space 
on the FROM pack. This causes an allocation of 
disk space that counts toward the total of four 


allowable allocations. (See Limit of Four Alloca- 
tions.) 


Printed or Punched Library Entries 


e Blanks and duplicate characters are reinserted 
into source statements and procedures to make 
them redatable. 


@ Object programs and routines are printed and 
punched as they exist in the library. 


Printout of Directory Entries 


e Source library directory (Figure 48) 
@ Object library directory (Figure 49) 


e System directory (Figure 50) 


PRINTOUT 


SOURCE DIRECTORY FROM XX VOL. 1D XXXXXX MM/DD/YY 
ADDRESS 

TYPE NAME FIRST@ LAST@ ATTR!I #SECTORS 

X XXXXXKX XXX-XX XXX-XX XK XXX 


Explanation: 


Heading Meaning 


TYPE S = source statements 
P = procedure 


NAME Name of library entry (up to six characters) 

ADDRESS Addresses of first and last sectors that contain the library entry. 

(FIRST and LAST) Addresses are expressed by track and sector numbers. 
EXAMPLE: 008-03 means track 8, sector 3. 


T = temporary 
P = permanent 


#SECTORS Total number of sectors used for the library entry. 





Figure 48. Source Library Directory Printout 


PRINTOUT 
OBJECT DIRECTORY FROM XX VOL. ID XXXXX MM/DD/YY 
DSK CYL/ TXT- LINK RLD ENTRY CORE TOT 
TYPE NAME ADD SEC CAT ADDR DISP PNT SEC ATTR LEVEL SEC 
A bL XXXXXX TTT/SS CC/SS XXX XXXX XK XXXX XXX XXXX XXX XXXXX 
EXPLANATION: 


Heading Meaning 


TYPE A P=permanent 
T=temporary 

L O=object 

R=routine 


Attribute 


Library 


NAME Name of library entry (up to six characters) 


DSK ADD Address where library entry begins on disk. EXAMPLE: 015/10 means track 15, sector 10 
(in decimal). T = track, S = sector. 


CYL/SEC Address where library entry begins on disk (in hexadecimal). C = cylinder, S = sector. 
TXT-CAT For object programs, this number indicates the number of sectors used for the text portion of 
the library entry. Object programs consist of two parts: text and RLD. Text is the program; 


RLD is information used in loading the program for execution. 


For routines, this number is the category of the routine. This number is used by the Overlay 
Linkage Editor for determining overlays. 





Figure 49. Object Library Directory Printout (Part 1 of 2) 
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PRINTOUT (Continued) 


Heading 
LINK ADDR 


RLD DISP 


ENTRY POINT 
CORE SEC 


ATTR 


LEVEL 


TOT SEC 


Meaning 


Object programs only. Assigned core address of this library entry. 


Object programs only. It indicates the position in which RLD information begins in the last 
text sector. If the last text sector contains no RLD information, the RLD displacement is 0, 
indicating the information starts in the next sector. 


Object programs only. Main storage address where program execution begins before relocations. 


Core size, given in sectors, required to run the program. 


Byte 1: 
Bit O=1 

0 
Bit 1=1 
Bit 2=1 
Bit 3=1 
Bit 4=1 
Bit 5=1 
Bit 6=1 
Bit 7=1 
Byte 2: 
Bit O=1 
Bit 1=1 
Bit 2=1 


Bit 3 
Bit 4=1 
Bit 5=1 


Bit 6 
Bit 7 


Permanent Entry 

Temporary Entry 

Inquiry. This program requires that the Inquiry key be pressed to start processing. 
Inquiry Invoking. This program runs in program level 1 and can be rolled out to 
allow an Inquiry program to run. 

Dedicated. !n a DPF system, this program must run with the other program level 
inactive. 

Source Required. This program requires the allocation of the $WORK and $SOURCE 
files. $SOURCE must be filled either from SYSIN or a source library. 

Deferred Mount. This program accepts mounting of packs during its execution. 
PTF Applied. A program temporary fix (PTF) has been applied to this program. 
RPG Object/Overlay Program 


SYSIN Dedication. The SYSIN device must be dedicated to this program. The device 
is released at end of job. 

Checkpoint/Restart Program 

Direct Source Read. This program can have a // COMPILE statement and a no source 
required attribute (byte 1, bit 4=0). The program will access the source itself. 


Reserved 

Macro Processor Allowed. This program can be preceded by the macro processor. 
If the source required attribute is present and the UPSI condition of X‘80’ is satis- 
fied, the $SOURCE file is opened as input instead of output. 

Program Common. This program requires that a new load address be calculated at 
load time to place it in main storage beyond its own program common region. 
Reserved 

Reserved 


Release level of system programs. For user programs this can be assigned by the Overlay 
Linkage Editor. 


Total number of disk sectors occupied by the library entry. 


Figure 49. Object Library Directory Printout (Part 2 of 2) 


Source Directory Location 

Next Available Library Sector 

End of Library 

Number of Directory Sectors 

Number of Permanent Library Sectors 
Number of Active Library Sectors 
Number of Available Library Sectors 


Allocated Size of Library 


OBJECT LIBRARY SECTION 


Object Directory Location 

End of Directory 

Start of Library 

Allocated End of Library 

Extended End of Library 

Number of Available Permanent Directory Entries 
Number of Available Temporary Directory Entries 
First Temporary Directory Entry 

Next Available Temporary Directory Entry 

Next Available Library Sector for Permanents 

Next Available Library Sector for Temporaries 
Number of Available Library Sectors for Permanents 
Number of Available Library Sectors for Temporaries 
Number of Active Library Sectors 

Number of Active Object Permanent Library Sectors 
Number of Active Routine Permanent Library Sectors 
Allocated Size of Library 


Roll-in/Rolfl-out Location 
Roll-in/Roll-out Size 


Scheduler Work Area Location 
Scheduler Work Area Size 


Start of Libraries 
End of Libraries 


Figure 50. System Directory Printout 


SYSTEM DIRECTORY 


SOURCE LIBRARY SECTION 





TTT-SS 
TTT-SS 
TTT-SS 
TTT-SS 
TTT-SS 

XXX 

XXX 


TTT-SS-DDD 
TTT-SS-DDD 


TTT-SS 
TTT-SS 
XXX 
XXX 
XXX 
XXX 
XXX 
YYY 


TTT-SS 
YYY 


TTT-SS 
YYY 


TTT-SS 
TTT-SS 


TTT-SS-DDD means track, sector, and displacement. Displacement is the number of characters from 
the beginning of the sector. XXX means number of sectors. YY Y means number of tracks. 
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DELETE FUNCTION 


DELETE USES | DELETE RESTRICTIONS 


System modules cannot be deleted from the active 
e Delete a temporary or permanent entry from a library (or ; system pack (the pack the system was loaded from at 
entries with the same name from all libraries). IPL time). 


Delete temporary or permanent The object library cannot be deleted from the pack that 
the system or the Library Maintenance program was 
loaded from. 


Delete a temporary or permanent entry from a library (or When all temporary entries are deleted from the object 
entries with the same name from all libraries). library using LIBRARY-O,NAME-ALL,RETAIN-T, the 


temporary routines (LIBRARY-R) are also deleted. 
Delete temporary or permanent library entries that have names 


beginning with certain characters. The RETAIN parameter must match the attribute of the 

entry in the library. Otherwise the entry is considered 
Delete all temporary or permanent library entries of a certain not found. RETAIN-T is assumed if the RETAIN para- 
type. meter is omitted. 


Delete a Temporary or Permanent Library Entry (or Entries with the Same Name from All Libraries) 


T 
// DELETE FROM-code,LIBRARY- »,NAME-name,RETAIN- 
p 
LL 


Delete Temporary or Permanent Entries with Names Beginning with Certain Characters 


Ss 
p T 
// DELETE FROM-code,LIBRARY-< O ,NAME-characters.ALL,RETAIN- 
: R P 
ALL 


Delete All Temporary or Permanent Entries of a Certain Type 


+ 
// DELETE FROM-code,LIBRARY- WNAME-ALL,RETAIN- 


S 
P 
O P 
R 
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DELETE PARAMETERS 








R1 l 
FRON- - ( Location of disk that contains library entries you are deleting. Possible codes are: 
Pe Code Meaning 
R1 Removable disk on drive one 
F1 Fixed disk on drive one 
R2 Removable disk on drive two 
F2 Fixed disk on drive two 
Ss 
P 
LIBRARY-< O Type of entries being deleted. Possible codes are: 
R 
ALL Code Meaning 
S Source statements (source library) 
P Procedures (source library) 
O Object programs (object library) 
R Routines (object library) 
ALL All types of entries (S, P, O, and R) are being deleted. 
name 
NAME- character. AL! Particular entries, of type indicated in LIBRARY parameter, being deleted. These 
ALL entries are further identified by the RETAIN parameter. Possible codes are: 
Code Meaning 
name Name of the library entry, or entries, being deleted. 
character.ALL Entries that have names beginning with the indicated 
characters. You can use up to five characters. 
EXAMPLE: NAME-INV.ALL refers to the entries 
having names that begin with INV. 
ALL All entries (of the type indicated in LIBRARY parameter). 
NAME-ALL cannot be used with LIBRARY-ALL. 
+ 
RETAIN- Designation of entries being deleted: 
P 
Code Meaning 
T Temporary 
P Permanent 
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RENAME FUNCTION 


RENAME USE 


e Change the name of a library entry. 


@ Change the name of library entries that have names 


_ beginning with certain characters. 


stasis tneneineaeneinopn udlicaisntnedhaimatunaenatennaemtasneladsteeniaiineaniaamsetsaiaucpeteabincisatine rite menhamanaieanseacemimmaremmagetge gum asicsanmartins-opiiaenshinaauanay anpamaetaapiaan qudieepaienemnniemeaeeeiceagaigapiemnmantipemnmindpnaaiaenaminteesmiptseuenrangensadamarsieesagerameumrtieasanisle aoeernmangmmanieieaiamtepetanmmnatnpmngmgEpaEEpmmanegataprasnousatnemerigremmempesaGl 


RENAME CONTROL STATEMENT SUMMARY 


// RENAME FROM-code,LIBRARY- 


// RENAME FROM-code,LIBRARY- 
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s,NAME-name,NEWNAME-name 


»NAME-characters.ALL,NEWNAME-characters 





RENAME PARAMETERS 





FROM-code 


S 
saany.JP | 
LIBRARY- 


NAME-name 
NAME-characters. ALL 


NEWNAME-name 


NEWNAME-characters 


Location of disk that contains the entry 
you are renaming. Possible codes are: 


Code Meaning 


R1 Removable disk on drive one 
F1 Fixed disk on drive one 
R2 Removable disk on drive two 
F2 Fixed disk on drive two 


Type of library entry you are renaming. 
Possible codes are: 


Code Meaning 


S Source statements (source 
library) 

Pp Procedures (source library) 

O Object programs (object library) 

R Routines (object library) 


Current name of the entry you are re- 
naming. This is the name that identifies 
the entry in the library directory. 


Only those entries beginning with 
the indicated characters. (You can 
use up to five characters.) 


New name you want to give the entry. 
Follow these rules to construct the name: 


1. You can use any System/3 charac- 
ters except blanks, commas, quotes, 
and periods. (Appendix A lists the 
characters.) However, the names 
of all IBM programs begin with a 
dollar sign ($). Therefore, to avoid 
possible duplication, do not use a 
dollar sign as the first character in 
the names you use for your entries. 
The first character must be alpha- 
betic. 


2. You can use up to six characters, 
but you cannot use the names ALL, 
DIR and SYSTEM. They have 
special meanings in the NAME 
parameter. 


Beginning characters you want to use in 
names identifying the copies. (You can 
use up to five characters. 


OCL CONSIDERATIONS 


The following OCL statements are needed to load 
the Library Maintenance utility program. 


// LOAD $MAINT,code 
// RUN 
The code you supply depends on the location of 


the disk containing the Library Maintenance pro- 
gram. The codes are as follows: 


Code Meaning 

R1 Removable disk on 
drive one 

a Fixed disk on drive 
one 

R2 | Removable disk on 
drive two 

F2 Fixed disk on drive 
two 


EXAMPLES 


Figures 51-62 illustrate the functions of the Library 
Maintenance utility program. Figure 51 is an exam- 
ple of the OCL needed to load the utility program. 
The other figures are examples of the control state- 
ment necessary to carry out the specified function. 





Explanation: 


@ Library Maintenance program is loaded from the fixed disk on 
drive one . 


Figure 51. OCL Load Sequence for Library Maintenance 
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/\/| IAILILIO(CIAITIE! [Tfol-IR{1), SOURCE! [2), OBTEICT I-45), bNiseM-Mels! | TT TTT TTT TTT TTT 
/VU FENDI TTT TT TTT ETT 
BERR RRR RRR R ERR EERE REARS CRRA AT RE RMR RRP LER RR RR RARER RRR R RRR e Ra 
RRL R RE RARER TART E REEMA RTE ARR RARER REAM SEER EERO RR RRRE ERT ETA RRRRERR ae ee 


Explanation: 


@ Libraries are being created on the removable disk on drive one (TO-R1 in ALLOCATE statement). 
@ Source library space is 12 tracks long (SOURCE-12). 


@ Object library space is 45 tracks long (OBJECT-45). The object library will contain system 
programs (SYSTEM-YES). Thus, the disk area will also include space for the Scheduler work area. 


@ Directory will be three tracks. 


Figure 52. Allocate Example. Creating Both Source and Object Libraries on a Disk 





Explanation: 


Explanation: 


® Source library is located on the removable disk on drive one e 


(TO-R1 in ALLOCATE statement). 


@ Size of the source library is being changed to 15 tracks 
(SOURCE-15). 


Object library is located on the removable disk on drive one 
(TO-R1 in ALLOCATE statement). 


@ OBJECT-O parameter tells the program to delete the object © 
library. If a Scheduler werk area precedes the object library, 


the program also deletes the work area. 
@ Any time the program changes the size of a library, it re- 


organizes the library. To do this, it needs a work area. This 


area is on the fixed disk on drive one (WORK-F1). Figure 54. Allocate Example: Deleting the Object Library from 


a Disk 

Figure 53. Allocate Example: Changing the Size of a Source 

Library 
1 4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 
VV | Kop IFIROM-lF/11, [Lit /Binjalri|-fo|, IMAMIEl-[SWiSiTIEM) ITiol-IRia] TTT ITIL TTT TTT 
AVUENDL TT LLL LETT EEE EEE EEE EEE EEE EEE EEE 
SR eee eae eee Ce CEE GEE PEGE SCS ee eee Aa EE 
RECA REUR ACR R RRR RE ESTER RR RMR RS ERE REAR ARERR ERE RER REET RRR RE RUSREE 
Explanation: 


@ System programs are in the object library on the fixed disk on drive one 
(LIBRARY-O and FROM-F1 in COPY statement). 


@ The NAME parameter (NAME-SYSTEM) tells the program to copy the 
system programs, 


@ The disk that is to contain the copy is the removable disk on drive one 
(TO-R1). 


Figure 55. Copy Example: Copying Minimum System from One Disk to Another 
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1 4 8 
| IclolPv| IFIROM-IRI1|,|Li IBIRIAIRWI-lAILIL], INAMEL-IO}I Rl, (tlo-lPiRtinir | TT TTT TTT TTT EEL 
AV ENO LTTE EEE EE 
BCG GEIS ECB RME EGGS AIC USER UTES et TTS ee eS er Ste Tora isla 
RIC ee Bc GS OES UCase eee MG RAC Ibe hale 
Explanation: 
@ All library directories and the system directory on the removable disk on drive one 

are printed (COPY statement): 

1. FROM identifies the disk containing the directories. 

2. LIBRARY indicates which directories are to be printed. 

3. NAME and TO indicate that the program is to be printing directories. 
Figure 56. Copy Example: Printing Library Directories 
1 4 8 12,16 20 24 28 32 36 40 44 4g. 52 56 60 64 68 72 

= 

/V/\ |cloply| IFIROM-IRit!, [Li BikWet-lol, NIAME!-INCciri, Iriol-lFlai IRetalin-IRE TTT TT TTT TTT Ett Tt 
VIATENO TTT TET EEE EEE EEE 
Seer eee SEO Ae Cee GSS ae Gia Wala) 
See GU ee USE IC edo Wie ec Astor nll erie US ATS Sta a Ea Ie 
Explanation: 


@ LIBRARY-0, NAME-ACCT, and FROM-R1 in the COPY statement tell the program 
to read the object program named ACCT from the removable disk on drive one. 


® TO-F1 tells the program to copy the object program to the fixed disk on drive one. 
There is no NEWNAME parameter in the COPY statement. Therefore, the name the 
program will have on the fixed disk is ACCT (NAME-ACCT). Since the old version 
of the program already exists on the fixed disk under that name, the old version is 
replaced. 


@ The Library Maintenance program normally halts before replacing a library entry. 
The RETAIN-R parameter, however, tells the program to omit that halt. 


Figure 57. Copy Example: Copying Object Program to F1 


/V/\_(DIE(LIEIT|E| |FRIOM-IRI2), LNIBIRIAIRIY-Sl NAMEFPAMIROW [TTT TTT tt titi LEE 
AV IEINDEL TELE 
BAGG MeO GER ee ore eee a ETE ital 
GUESS EO Ge CGB eM GE SCE GS IGM Se Ran Oise aig 
Explanation: 


® The program deletes a set of source statements (LIBRARY-SS in 
DELETE statement) named PAYROL (NAME-PAY ROL) from 
the removable disk on drive one (FROM-R1) that has a temporary 
attribute. 


Figure 58. Delete Example: Deleting an Entry from a Library 
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Explanation: 


@ The entries being deleted are on the removable disk on drive one 


(FROM-R1 in DELETE statement). 


® The program deletes all entries from both source and object 


libraries (LIBRARY-ALL) that have names beginning with the 


characters INV (NAME-INV.ALL), with temporary attributes, 


Figure 59. Delete Example: Deleting All Entries with Names that Begin with Certain Characters 


Explanation: 


@ The entries being deleted are on the removable disk on drive one 


(FROM-R1 in DELETE statement). 


@ All temporary procedures are being deleted from the source 
library (LIBRARY-P,NAME-ALL). 


Figure 60. Delete Example: Deleting All Library Entries of One Type 


Explanation: 


@ The removable disk on drive one contains the entry being renamed (FROM-R1 


in RENAME statement). 


@ The entry is a set of source statements in the source library (LIBRARY-S). 


Its name is ACCT (NAME-ACCT). 


® The entry name is being changed to ACCT1 (NEWNAME-ACCT1). 


Figure 61. Rename Example: Renaming a Set of Source State ments in a Source Library 
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Reload System (IPL) from F1 


Explanation: 


1. The system and $MAINT are both loaded from F1. 


2. The libraries on R1 are deallocated (if present). 


3. New library space is allocated on R1. 


4. The libraries are copied from F1 to R1. The libraries are reorganized as they are copied. 


Temporary entries become permanent when copied (see Disk-to-Disk Considerations, Output). 


5. The system and $MAINT are now loaded from R11. 


6. The libraries on F1 are deallocated. 


7. New library space is allocated on F1. 


8. The libraries are copied back to F1. The pack on R1 could be used as a back-up pack. It 


contains the same libraries as F1. 


Figure 61. Reorganizing the System Pack 
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IBM SYSTEM/3 5445 DATA INTERCHANGE UTILITY PROGRAM 
A ST TEI. 


All IBM 2316 disk packs initialized on System/3 5445 Disk Drive by $INIT have a System/360- 
Systern/370 formatted volume table of contents (VTOC). The System/360-System/370 

VTOC is not used by System/3. When it is necessary to exchange data between System/3 and 
System/360-System/370 on a 2316 disk pack, the |BM System/3 5445 Data Interchange 
Utility can be used (see Appendix C for an alternate method). The utility must be run going 

to and returning from System/360-System/370. 


When the utility program is run against a 2316 disk pack, the contents of the System/3 
VTOC are mapped to the System/360-System/370 VTOC. If data is to be returned to the 
System/3 via the utility without reinitialization, then restrictions on the use of the pack on 
System/360-System/370 must be observed. Any deviations from these restrictions can 
result in the format of the pack being altered beyond the capacility of the utility to return 
the pack to normal System/3 format. This can result in errors in the utility run returning 
the pack or unrecoverable errors on the pack while processing it on System/3. 


Following is a list of the methods of processing data files on the interchange pack by OS 
or DOS: 


Functions (sequential processing only) Disposition Type Open 
Reading with OS using BSAM or QSAM OLD FBS INPUT 
Reading with DOS using SAM-GET. —— —— INPUT 


Update in place with OS using BSAM or 
QSAM OLD FBS UPDATE 


Update in place with DOS using SAM- 
GET/PUT —— UPDATE INPUT 


CAUTION: 


Only the above disposition and open types may be used. 


The update-in-place function can be used on a data set written on System/3 filled with 
dummy records. Since duplicate file names are not allowed on System/360-System/370, the 
System/3 file names will be qualified with the file date. An example would be PAYROLL. 
D711026. PAYROLL would be the file name on System/3 and the file was created on 
October 26, 1971. 


Files to be processed by QSAM must have a logical record length that is an even submultiple 
of 256. | 


No files may be allocated or deleted on System/360 or System/370. 


Any System/3 P or T file on the pack is mapped into the System/360-System/370 VTOC. 
Multivolume files are not supported and their interchange results in a System/360- 
System/370 entry that appears like a single volume file. Split cylinder files will have a 
System/360-System/370 format one but it is not usable due to basic differences in split 
file philosophy between the systems. If the System/3 file type is either consecutive or 
indexed but not split, then a System/360-System/370 end-of-file mark is written in the 
file area at the end of data. When the utility is run to return the pack to System/3, the 
end of file marks are removed and the System/360-System/370 VTOC entries are deleted. 


The utility must always be run last when going to System/360-System/370 and first 
when returning to System/3. Any deviation from this procedure can result in loss of 


data on the pack. 


The attributes of all System/360-System/370 VTOC entries assigned by the utility are 


as follows: 
Name of file — name. DYYMMDD 
Creation date — 00000 
Expiration date — 99365 (date protected) 
Volume sequence number — 0001 
Record/block format — FIXED BLOCK STANDARD (FBS) 
Organization — sequential (regardless of S/3 type) 
System Code — “IBM DSM/3” 
Block length _ 256 bytes 
Logical record length — same as S/3 length 
Extent type — single 


CONTROL STATEMENT SUMMARY PARAMETER SUMMARY 


System/3 to System/360-System/370 Conversion 


PACK-name Name of the disk. 


UNIT-code Location of the disk. Possible codes 


D1 
// NEWVTOC unr} = ,PACK-name are D1 and D2. 





// END 


System/360-System/370 to System/3 Conversion 


// UPDATE UNIT- , - 'PACK-name 


// END 
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PARAMETER DESCRIPTIONS 


PACK Parameter 
The PACK parameter (PACK-name) tells the pro- 
gram the name of the pack being transferred. The 
name you supply in this parameter is the one written 
on the disk by the Disk Initialization program. 


The 5445 Data Interchange program compares the 
name in the PACK parameter with the name on the 
disk to ensure they match. In this way, the program 
ensures that it is using the right disk. 


UNIT Parameter 
The UNIT parameter (UNIT-code) tells the program 
the location of the pack being transferred. Codes for 
the possible locations are as follows: 


Code Meaning 
D1. Removable disk on 
5445 drive one 
D2 Removable disk on 
5445 drive two 
OCL CONSIDERATIONS 


The following OCL statements are needed to load 
the 5445 Data Interchange Utility program: 


// LOAD $VTOC, code 
// RUN 


The code you supply depends on the location of the 
disk containing the utility program. The codes are 


as follows: 

Code Meaning 

R1 Removable disk on 
drive one 

F1 Fixed disk on drive 
one 

R2 | Removable disk on 
drive two 

F2 Fixed disk on drive 
two 
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Explanation: 


e 5445 Data Interchange Utility is loaded from the fixed disk 
on drive one. 
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— (underscore) 
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Hexadecimal! Hexadecimal 


Equivalent 


Hexadecimal 
Equivalent 


Equivalent 


Character Character 
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(be 
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7E 
ct s 
F C2 E6 
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on 
> 
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Q 
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| it 


oO 
7m 
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eT PRIA 
APPENDIX B. CONVERSION 
A LT 


RECORDS TO TRACKS CONVERSION 


Determining the Number of Sequential or Direct File Tracks 
The following two steps should be followed to determine the number of tracks in a 
sequential or direct file. (Round results to the nearest whole number.) 


1. number of records x record length = number of characters 


2. number of characters 
a ) = number of tracks 
number of characters per track 


Determining the Number of Indexed File Tracks 
The following two steps should be used to determine the number of data tracks in an 
indexed file: 


1. number of records x record length = number of characters 


2. number of characters ina sector 2) 
number of data tracks 


number of characters per track ® 


The following four steps should then be followed to determine the number of index 
tracks in an indexed file: 


1. key field length + (3 for 5444 or 4 for 5445) = index entry length 


2. number of characters in a sector @) 
= number of entries per sector 


index entry length 


3. number of records 
= number of sectors 


number of entries per sector 


4. number of sectors 


i nasa = number of index tracks 
number of sectors per track 


The total number of tracks in an indexed file can then be determined by adding the 
number of data tracks to the number of index tracks. 





Oeraa for the 5444 
5120 for the 5445 


@os6 (For the 5445, a sector is referred to as a fixed record.) 


Qo, for the 5444 
20 for the 5445 
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CYLINDER/TRACK TO TRACK NUMBER CONVERSION 
To convert cylinder/track to track number, multiply cylinder number by the number 
of tracks on each cylinder and add track. | 


EXAMPLE: 5/3 = cylinder/track 
5X 20*+3 = 103 
103 = track number 


TRACK NUMBER TO CYLINDER/TRACK CONVERSION 
To convert track number to cylinder/track, divide track number by the number of 
tracks on a cylinder. The quotient is the cylinder and the remainder is track. 


EXAMPLE: 103 = track number 
103 — 20* = 5 (remainder 3) 
5/3 is the cylinder/track 


SL TT TLS aT EST SOS STS SENSES 


* 20 = number of tracks on a cylinder 


APPENDIX C. SYSTEM/360-SYSTEM/370 DISK FILE COMPATIBILITY 
AALAND RAS A SP STE I EEO TS EEE 


This appendix is intended for the user who intends to exchange data between System/3 
and System/360-System/370 without using the IBM System/3 5445 Data Interchange 
Utility Program. The access method limitations listed in the utility program section of 
this manual should be followed. 


Disk files created on the 5445 can be read and updated using System/360-System/370. 
Disk files can also be created using System/360-System/370 and subsequently read or 
updated with a System/3 Model 10 Disk System. 


The volume label and volume table of contents (VTOC) identify the information con- 
tained on the disk pack. The volume label identifies the volume and points to the 
System/360-System/370 VTOC. The System/360-System/370 VTOC contains one label 
record which describes the complete pack as one System/360-System/370 file. The 
System/3 VTOC resides in a fixed location within this System/360-System/370 file and 
can be examined by the System/360-System/370 program. 


See /BM System/3 Disk Systems System Control Program Logic Manual, SY 21-0502, 
for a description of the System/3 VTOC and volume label. 


System/3 to System/360-System/370 
The System/3 Disk Initialization Program writes a volume label in the System/360- 
System/370 format on every disk pack. The Systemn/3 disk format consists of 
256-byte physical records. This record length may be altered for System/360- 
System/370 VTOC records. 


Any of the access methods previously listed may be used by System/3 when creat- 
ing a file to be used by System/360-System/370. The logical records in a particular 
System/3 file can be accessed by System/360-System/370 by means of a user pro- 
gram using the Sequential Access Method if the user program: 


e@ Locates the file label in the System/3 VTOC for the desired file. 


e@ Uses the start of data information and record length information from the 
System/3 VTOC to perform the accessing and logical deblocking. 


e@ Uses the end-of-file information from the System/3 VTOC. 


System/360-System/370 to System/3 
Volumes created on System/360-System/370 can be processed on System/3 if 
System/360-System/370 provides a System/3 VTOC entry and writes 256-byte 
physical records. A System/3 user program or utility can then read and unblock 
the file according to the information in the System/3 VTOC. 


CAUTION 
If the System/3 VTOC provided by System/360-System/370 is not exactly 
the same as the System/3 format, unexpected results (destroyed data files 


or unrelated halts) may occur. 
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